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PREFACE 


This  report  was  prepared  by  the  University  of  Dayton  Research  Institute 
for  the  Federal  Aviation  Administration  Technical  Center  under  Contract 
FA74WA-3532  during  the  period  April  1980  through  March  1981.  The  report 
describes  the  third  refined  version  of  the  Dayton  Aircraft  Cabin  Fire  Model 
(DACFIR). 

Work  was  performed  at  the  University  of  Dayton  under  the  supervision  of 
Nicholas  Engler.  Others  at  the  University  who  contributed  to  this  program  are 
John  Myers,  Steven  Vondrell,  Thomas  Shirley,  and  Zalfa  Abdelnour.  Much  of  the 
original  development  of  the  DACFIR  model  is  due  to  Jerry  Reeves,  Peter  Kahut, 
and  James  Luers.  The  author  wishes  to  thank  Gretchen  Walther,  Jacquelin 
Aldrich,  and  Pamela  Ecker  for  their  assistance  in  preparing  this  report. 
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SECTION  1 
INTRODUCTION 


This  volume  contains  a  description  and  guide  for  the  use  of  the  Dayton 
Aircraft  Cabin  Fire  simulation  program  (DACFIR3).  DACFIR3  differs  substan¬ 
tially  from  earlier  versions  of  the  DACFIR  program.  User's  guides  for  earlier 
versions  were  given  In  Volume  III  of  reference  I  and  Appendix  C  of  reference 
2.  While  this  volume  draws  from  material  presented  in  the  earlier  volumes, 
familiarity  with  Versions  1  and  2  of  DACFIR  is  not  necessary  for  the  use  of 
the  present  version.  The  intent  of  this  user's  qulde  Is  to  provide  instruc¬ 
tion  for  the  efficient  use  of  DACFIR3,  but  not  to  present  the  construction  of 
the  computer  code  in  detail.  The  guide  provides  an  annotated  flow  chart  of 
the  main  controlling  program,  instructions  for  preparing  the  input  data, 
sample  input  and  output ,  program  statistical  data,  and  a  listing  of  the  com¬ 
puter  code.  The  code  listing,  given  in  Appendix  A,  contains  a  large  number  of 
comment  statements  which  provide  a  line-by-line  description  of  the  operation 
of  the  program. 


1.1  DEFINITIONS  AND  CONVENTIONS 

In  the  DACFIR  program,  the  cabin  may  consist  of  one  to  four  compart¬ 
ments,  each  of  Identical  cross  section,  which  are  assumed  to  be  connected  end 
to  end.  The  interior  of  each  compartment  consists  of  from  six  to  22  horizon¬ 
tal  and  vertical  surfaces.  Two  of  these  surfaces  are  the  partitions  which 
divide  the  cabin  fore  and  aft  to  form  the  compartment.  The  remaining  four  to 
20  surfaces  are  parallel  to  the  cabin  fore-aft  direction  and  represent  the 
floor,  sidewalls,  hatracks,  stowbins,  passenger  service  units  (PSU's),  and 
ceilings.  One  of  the  compartments  contains  the  "detailed  section"  defined  as 
the  portion  of  the  interior  where  the  element  grid  scheme  Is  applied.  Within 
this  detailed  section  the  user  may  specify  the  dimensions  and  locations  of 
from  one  to  nine  seat  groups  (rows).  The  surface  of  each  seat  group  is 
divided  into  elements  of  the  same  size  as  those  on  the  cabin  lining  surfaces. 

Each  surface  and  seat  group  Is  Identified  by  a  single  number  and  each 
element  by  a  pair  of  numbers,  the  element  i  and  j  indices.  Assignment  of  the 
surface  and  seat  numbers  and  element  Indices  Is  made  by  the  program  based  upon 
the  values  and  order  of  the  Input  data.  The  conventions  and  assumptions  to  be 
noted  in  preparing  input  are  as  follows: 

(1)  All  cabin  lining  surfaces,  with  the  exception  of  the  partitions, 
are  assumed  to  be  parallel  to  the  cabin  y-axls  (fore-aft  direction.)  (See 
Figure  1  of  this  volume  and  Figure  6  of  Volume  I.)  Each  surface  is  either 
parallel  or  perpendicular  to  the  x-y  (floor)  plane,  and  all  surfaces  extend 
over  the  full  lenqth  of  the  detailed  section.  The  seat  group  configuration 
consists  of  fixed  dimensions  as  shown  In  Figure  6,  Volume  I.  All  seats  must 
face  forward. 

(2)  Numbering  of  the  cabin  lining  surfaces  starts  with  the  floor,  sur¬ 
face  number  one,  and  proceeds  counterclockwise  (to  a  viewer  facing  aft)  up  the 
sidewall,  across  the  celling,  and  down  the  opposite  sidewall  to  return  to  the 
floor.  This  scheme  is  shown  in  Figure  1  for  a  cabin  arrangement  with  shelf¬ 
like  hatracks  and  a  three  part  sidewall. 
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Figure  1.  Cabin  Lining  Surface  Numbering  and  Element  Indexing 
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Figure  2.  Seat  Surface  Numbering  and  Element  Indexing. 
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(3)  Each  seat  group  is  constructed  of  seven  surfaces  as  shown  in 
Figure  2.  Numbering  of  the  elements  starts  with  the  cushion  bottom,  proceeds 
up  the  backrest,  over  the  backrest  top,  down  the  front,  and  ever  the  cushion 
top  and  the  seat  front  to  return  to  the  edge  of  the  cushion  bottom.  Since  all 
seat  dimensions  except  the  width  are  fixed,  the  number  of  elements  on  each 
surface  in  the  direction  of  the  traverse  described  is  fixed.  The  i-indices  of 
the  elements  at  the  edge  of  each  seat  surface  are  shown  in  Figure  2. 

(4)  Description  of  compartment  vents  must  conform  to  the  following 
assumptions.  All  vents  are  rectangular  openings  in  a  vertical  wall,  and  may 
connect  adjacent  compartments  or  connect  any  compartment  to  the  exterior.  A 
single  compartment  may  be  unvented  or  may  have  any  number  of  vents  to  a  maxi- 
mum  of  six. 


1.2  PROGRAM  STRUCTURE 

DACFIR3  consists  of  two  major  sections:  one  to  integrate  the  set  of 
differential  equations  which  model  the  cabin  atmosphere,  and  one  to  simulate 
the  spread  and  course  of  burning  of  the  cabin  interior  materials.  As  the 
simulation  steps  ahead  in  time  these  two  sections  are  alternately  executed  to 
provide  the  proper  coupling  and  feedback  relationships  between  these  two  more- 
or-less  separate  parts  of  the  problem.  As  explained  in  Section  2.4  of  Volume 
I,  the  time  scale  for  changes  in  the  cabin  atmosphere  model  is  much  shorter 
than  the  scale  for  changes  in  the  spread  simulation.  This  is  due  in  part  to 
the  choice  of  the  size  of  the  elements  for  discretization  of  the  cabin 
materials.  The  difference  in  scales  results  in  the  two-loop  structure,  shown 
in  Figure  3,  for  the  time  stepping  procedure.  The  loop  structure  contained 
within  the  spread  simulation  tracks  the  growth  of  the  groups  of  contiguous 
burning  elements  that  form  the  fire  bases. 

Figure  3  identifies  the  individual  subroutines  that  constitute  the  major 
functional  blocks  indicated.  More  information  on  the  purpose  of  each 
subroutine  is  given  in  Table  I.  Figure  4  shows  the  calling  arrangement  for 
the  major  subroutines,  the  smaller  utility  subroutines  being  omitted  for 
clarity  of  the  diagram. 

Details  of  the  internal  operation  of  the  main  program  and  each 
subroutine  are  provided  by  the  many  comment  lines  in  the  program  code.  The 
comments  also  give  the  definitions,  dimensions,  and  units  of  all  variables. 

A  listing  of  the  FORTRAN  code  of  DACFIR3  is  given  in  Appendix  A. 
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OUTPUT 
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Figure  3.  Organization  of  the  DACFIR3  Program. 
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TABLE  I 

DACFIR3  SUBROUTINES 


Name 

Called  by 

Function 

AFP 

DACFIR3 

Computes  the  total  areas  of  all  materials 
in  the  smoldering,  flaming,  and  charred 
states.  Computes  the  total  rates  of  gas 
and  smoke  emission  by  all  materials  in 
the  smoldering  and  flaming  states. 

ATMOS 

DACFIR3 

Controlling  routine  for  the  integration 
of  the  cabin  atmosphere  equations.  One 
pass  through  ATMOS  produces  an  update  of 
the  atmosphere  variables  by  one  small 
time  step. 

AUXOUT 

DACFIR3 

Output  routine  for  writing  variables  to 
Unit  8  for  plotting  or  other  uses. 

COND 

DACFIR3 

Computes  the  fire  spread  to  elements 
adjacent  to  a  fire  base  for  all  base 
areas  on  lining  surfaces. 

CONDS 

DACFIR3 

Computes  the  fire  spread  to  elements 
adjacent  to  a  fire  base  for  all  base 
areas  on  seat  surfaces. 

CONV 

ESET1/ESET2 

Finds  the  convective  heat  transfer  rates 
between  lining  surfaces  and  the  gases  in 
each  zone. 

COVER 

CONV 

Computes  the  area  of  contact  between  a 
gas  zone  and  the  lining  surfaces  it 
touches. 

OECOMP 

MSLV 

Decomposes  the  Jacobian  matrix  into  the 
product  of  a  lower-diagonal  matrix  and  an 
upper  diagonal  matrix,  the  first  step  in 
solving  the  linear  set  employed  in- the 
Newton-Raphson  solution  of  the  cabin 
atmosphere  equations. 

ECHO 

DACFIR3 

Provides  an  "echo-check"  of  the  input 
data  and  certain  initialization 
procedures. 

ELEM 

0ACFIR3 

Scans  all  elements  to  make  changes  of 
state  for  elements  currently  in  states  2, 
5,  6,  and  7.  Updates  elapsed-time-ln- 
state  clock  for  elements  in  states  2,  5, 
and  6  and  fraction-consumed  clock  for 
state  2  elements. 
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TABLE  I  (Continued) 
DACFIR3  SUBROUTINES 


Name 

Called  by 

Function 

ESET1, 

ESET2 

ATMOS, 

NWTRAP 

ESET1  evaluates  the  terms  in  the 
control ing  equations  of  the  cabin 
atmosphere  model.  ESET2  is  an  alternate 
entry  to  this  routine  which  bypasses  some 
sections  which  need  only  be  evaluated 
once  during  a  time  step. 

EXTRAP 

ATMOS 

Extrapolates  from  the  current  values  of 
the  cabin  atmosphere  variables  to  new 
values  at  the  next  time  point  to  provide 
a  first  quess  for  the  iterative  solution 
of  the  cabin  atmosphere  equations. 

FCON 

DACFIR3 

Computes  the  ignition  of  elements  on  the 
lining  surfaces  by  the  contact  of  flames 
from  fires  on  other,  non-adjacent  lining 
surfaces. 

FCONS 

DACFIR3 

Computes  the  ignition  of  lining  surface 
elements  due  to  flame  contact  by  fires  on 
the  seats. 

FIRE 

ESET1/ESET2 

Finds  the  total  rates  of  emission  of 
heat,  smoke,  and  gases  at  the  base  plane 
of  a  fire. 

HEIGHT 

ESET1/ESET2, 

INITLZ 

Finds  the  lower  zone  depth  from  the  lower 
zone  volume  and  the  cabin  cross-section. 

INIT2 

INITLZ 

Initializes  arrays  used  to  locate  the 
lining  surfaces  with  respect  to  one 
another  and  the  seats. 

INITLZ 

DACFIR3 

Initializes  most  program  variables  and 
element  states. 

MSLV 

NWTRAP 

Controlling  routine  for  the  matrix  solu¬ 
tion  of  the  linear  equation  set  used  in 
the  Newton-Raphson  method. 

NWTRAP 

ATMOS 

Controlling  routine  for  the 

Newton-Raphson  iterative  method  for  the 
solution  of  the  cabin  atmosphere 
equations. 
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TABLE  I  (Continued) 
DACFIR3  SUBROUTINES 


Name 

Called  by 

Function 

OUTPUT 

0ACFIR3 

Provides  the  printed  (Unit  6)  output  for 
the  results  of  the  simulation. 

PLUME 

ESET1/ESET2 

Finds  the  rates  of  entrainment  of  mass, 
energy,  and  species  into  the  plume  and 
flame  zones  of  a  fire. 

PVOL 

0ACFIR3 

Computes  the  transition  of  lining  surface 
elements  to  the  smoldering  state. 

PVOLS 

DACFIR3 

Computes  the  transition  of  seat  surface 
elements  to  the  smoldering  state. 

RADTN 

ESET1/ESET2 

Finds  the  net  radiation  heat  transfer 
between  the  gas  zones  of  the  cabin 
atmosphere  and  the  cabin  lining  surfaces. 

RAMP 

DACFIR3 

Computes  the  rates  of  heat,  smoke,  and 
gas  release  during  the  "ramp-in  period," 
that  time  when  the  ignition  source  fire 
is  building  to  its  maximum  burning  rate. 

RATES 

0ACFIR3 

Computes  the  flame  absorption 
coefficient;  flame-to-fuel  radiation 
levels;  and  the  rates  of  heat,  smoke,  and 
gas  release  at  the  base  of  a  fire. 

RDCNTL 

DACFIR3 

Reads  in  the  values  of  the  program 
control  variables. 

RDGMTY 

0ACFIR3 

Reads  in  the  values  of  the  variables 
describing  the  cabin  geometry  and  ini¬ 
tializes  arrays  pertaining  to  the  element 
indexing  scheme. 

ROIGIN 

DACFIR3 

Reads  in  the  values  of  the  variables 
describing  the  ignition  mode  for  the 
simulation  and  initializes  variables 
associated  with  the  ignition  source  fire. 

ROMTLS 

DACFIR3 

Reads  in  the  data  describing  the  cabin 
interior  materials. 

RESET 

DACFIR3 

Resets  the  indicators  of  the  current  and 

past  states  of  all  elements  in  prepara¬ 
tion  for  the  next  pass  through  the  fire 
spread  calculations. 
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TABLE  I  (Continued) 
DACFIR3  SUBROUTINES 


1 


Name 


Called  by 


Function 


SCALE 

ATMOS, 

ESET1/ESET2, 

INITLZ 

Scales  the  values  of  the  cabin  atmosphere 
variables  "down"  to  order  one,  "up"  to 
the  appropriate  physical  order  of 
magnitude,  and  computes  scaling  factors 
for  this  process. 

SCAN 

DACFIR3 

Searches  all  lining  and  seat  surfaces  in 
the  detailed  section  to  find  groups  of 
contiguous  state  3  (flaming)  elements. 
Organizes  these  groups  into  fire  bases 
and  computes  a  number  of  parameters  asso¬ 
ciated  with  each  fire. 

SOLVE 

MSLV 

Solves  the  linear  system  (matrix 
equation)  employed  by  the  Newton-Raphson 
solution  of  the  cabin  atmosphere 
equations. 

SRFTMP 

DACFIR3 

Computes  the  surface  temperatures  and 
radiative  and  convective  flux  levels  to 
the  cabin  lining  surfaces. 

TEST 

DACFIR3 

For  elements  in  state  3  (flaming)  this 
routine  updates  the  "fraction-consumed" 
clocks;  changes  those  elements  due  to 
burn-out  at  this  time  to  state  4 
(charred);  and  computes  the  total  rates 
of  heat,  smoke,  and  gas  release  for  all 
current  state  3  elements. 

VENT 

ESET1/ESET2 

Computes  the  rates  of  mass  flow  through  a 
single  vent  between  two  compartments  or 
between  a  compartment  and  the  exterior. 

XSEC 

CONV,  HEIGHT, 
SRFTMP,  INITLZ 

Finds  the  cross-sectional  area  (perpen¬ 
dicular  to  the  cabin  y-axis)  of  the  lower 
gas  zone. 

TABLE  I  (Concluded) 
DACFIR3  SUBROUTINES 


Name 


Called  by 


Function 


Utility  Subroutines 

These  short  subroutines  are  used  In  many  places  throughout  the  program, 
mainly  for  "bookkeeping"  functions. 


ISIDE 

CVOUT 

CWORD 

LINT 


Unpacks  data  stored  In  packed  form  In  the 
array  IF. 

Unpacks  data  In  the  arrays  ISTATE  and 
I STATS. 

Unpacks  data  In  the  arrays  IWORD  and 
IWORDS. 

Linearly  Interpolates  In  the  tables  of 
flammability  properties  vs.  applied  heat 
flux. 

Provides  error  checking  of  some  Input 


ERROR 


DACFIR3 


Subroutine  Calling  Diagram  for  DACFIR3. 


SECTION  2 

PREPARATION  OF  INPUT  DATA 


This  section  describes  the  Input  requirements  for  DACFIR3.  The  prepara¬ 
tion  of  each  Input  record  (card)  Is  described  Including  the  appropriate 
variable  names,  dimensions,  and  formats.  The  Input  data  Is  divided  Into  four 
types:  program  control,  cabin  geometry  description,  materials  flammability 
data,  and  the  description  of  the  ignition  mode.  A  separate  subroutine  is  used 
to  read  each  type  of  data  In  the  order  given  above.  The  Input  data  file  Is 
read  sequentially  by  these  four  subroutines.  Numbering  of  the  Input  records 
is  continuous  from  the  start  of  the  file.  In  Section  3  a  sample  Input  file  Is 
presented  along  with  a  sample  of  the  output  created  by  this  data. 

DACFIR3  provides,  at  the  user's  option,  an  exhaustive  print-out  of  all 
the  input  data  at  a  point  In  the  program  before  the  actual  fire  simulation 
begins.  The  print-out  Includes  the  results  of  the  assignments  of  material 
types  and  element  Indices  made  by  the  Initialization  subroutines.  Whenever  a 
new  Input  file  Is  prepared,  this  "input  echo"  print-out  should  be  used  to 
verify  the  data  by  specifying  ECOFLG  =  1  In  record  type  3  of  the  program 
control  Input  data. 


2.1  PROGRAM  CONTROL  DATA 

Record  types  1,  2,  and  3  constitute  the  program  control  Input.  One 
record  of  each  type  must  appear  In  the  Input  file. 


TABLE  II 

PROGRAM  CONTROL  DATA 


Record 

Type 

Column 

Format 

Variable 

Name 

Dimension 

Description 

1 

1-80 

20A4 

IOENT 

20 

Run  Identification. 

2 

1-10 

F10.1 

DELTAT 

— 

Small  time  step  (sec) 

Minimum  value  0.001  sec. 

2 

11-20 

F10.1 

TFINAL 

— 

Stopping  time  (sec). 

2 

21-30 

F10.1 

EPSLN 

" 

Convergence  tolerance  for 
cabin  atmosphere 
calculations  (no  units). 

2 

31-35 

15 

MAXITR 

Maximum  number  of  Iterations 
allowed  In  cabin  atmosphere 
calculations. 

2 

36-40 

15 

MAXCUT 

Maximum  number  of  time  step 
slices  allowed  in  cabin 
atmosphere  calculations. 
Maximum  value  Is  3. 

2 

41-45 

15 

JCBSKP 

Switch  to  enable  skipping  of 
the  evaluation  of  the 
Jacobian  in  the  gas  dynamics 
calculations.  JCBSKP  «  1 
indicates  no  skipping.  For 
all  other  values,  the  eva¬ 
luation  Is  skipped  if  MOD 
(ITR, JCBSKP)  Is  not  equal  to 
zero,  where  ITR  Is  the 
Iteration  number. 

2 

46-50 

15 

IRATIO 

— 

Ratio  of  passes  through  the 

cabin  atmosphere  calcula¬ 
tions  to  a  pass  through  the 
flame  spread  calculations. 
Must  always  be  greater  than 
or  equal  to  one. 


12 


I  » 
j  J 
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TABLE  II  (Concluded) 
PROGRAM  CONTROL  DATA 


Variable 

Name  Dimension 

Description 

Modulus  to  control  the  fre¬ 
quency  of  evaluation  of 
scale  factors  in  the  cabin 
atmosphere  calculations 
(milliseconds).  If  M0D(LT, 

I SCALE)  is  equal  to  zero 
scale  factors  are  recom¬ 
puted.  LT  is  the  time  In 
milliseconds  since  the 
beginning  of  this  small  time 
step.  (This  value  may  be 
less  than  DELTAT  If  step 
cutting  is  In  effect.) 

Output  printing  interval 
(sec)  for  the  cabin 
atmosphere  variables.  Must 
be  an  integer  multiple  of 
DELTAT.  Unit  6  output  only. 

Output  printing  interval 
(sec)  for  fire  spread  calcu¬ 
lations.  Must  be  an  integer 
multiple  of  DELTAT.  Unit  6 
output  only. 

Flag  to  control  the  output 
of  selected  variables  to 
Unit  8  for  off-line 
plotting,  etc.  IPAUX  *  1 
causes  the  output  to  occur, 
IPAUX  *  0  suppresses  this 
output.  See  the  listing  of 
subroutine  AUXOUT  for  the 
format  of  this  Unit  8  data. 

Flag  to  control  the  "echo" 
printing  of  the  Input  data. 
ECOFLG  ■  1  causes  printing 
on  Unit  6,  ECOFLG  *  0 
suppresses  the  printing. 


2.2  CABIN  GEOMETRY  DESCRIPTION 

Record  types  4  through  13  contain  the  Input  data  which  describes  the 
cabin  compartment at Ion,  venting,  lining  and  seating  arrangement,  materials 
Identification  and  other  items  pertaining  to  the  cabin  geometry.  With  the 
exception  of  record  type  13,  at  least  one  record  of  each  type  must  appear. 


TABLE  III 

CABIN  GEOMETRY  DESCRIPTION 


Record 

Type 

Column 

Format 

Variable 

Name 

Dimension 

Description 

4 

1-10 

F10.1 

CH 

Cabin  floor  to  ceiling 
height  (ft).  Must  be  an 
integer  multiple  of  0.5  ft. 

4 

11-20 

F10.1 

CW 

Cabin  width  at  floor  (ft). 
Must  be  an  integer  multiple 
of  0.5  ft. 

5 

1-5 

15 

NCOMPS 

— 

Number  of  compartments. 
Maximum  value  is  4. 

5 

6-10 

15 

IFRCMP 

•  *■ 

Number  of  the  compartment  in 
which  an  interior  fire  can 
occur. 

6 

1-40 

4F10.1 

CL 

4 

Compartment  lengths  (ft). 
Enter  the  lengths  in  the 
order  of  the  compartment 
numbers. 

7 

1-5 

15 

LSN 

Number  of  cabin  lining  sur¬ 
faces  (excluding  partition 
surfaces.)  Maximum  value  Is 
20. 

7 

6-10 

15 

NSG 

Number  of  seat  groups. 
Maximum  value  is  9  and  mini¬ 
mum  value  is  1. 

7 

11-15 

15 

ICLl 

Surface  number  of  the  left¬ 
most  celling  surface 
(looking  aft). 

7 

16-20 

15 

ICLR 

Surface  number  of  the  right¬ 
most  ceiling  surface 
(looking  aft). 

14 


TABLE  III  (Continued) 
CABIN  GEOMETRY  DESCRIPTION 


Record  Variable 

Type  Column  Format  Name  Dimension  Description 

One  to  20  type  8  records  may  appear  In  the  file.  The  exact  number  Is  given  by 
the  value  of  LSN.  The  type  8  records  must  appear  In  the  order  of  the  surfaces 
to  which  they  correspond. 


1-10 

F10.1 

SWD 

20 

Surface  “width"  (ft).  This 
Is  the  surface  dimension  In 
the  circumferential  direc¬ 
tion  around  the  cabin 
Interior  and  corresponds  to 
the  direction  of  the  1  ele¬ 
ment  index  (See  Figure  1). 
Must  be  an  Integer  multiple 
of  0.5  ft. 

11-20 

F10.1 

Z 

20 

Z  displacement  (height)  of 
the  surface  from  the  floor 
(ft).  This  value  is 
required  only  for  horizontal 
surfaces  and  must  be  a 
multiple  of  0.5  ft. 

21-30 

F10.1 

VN 

20,3 

x  component  of  the  surface 
normal  vector  (ft). 

31-40 

F10.1 

VN 

20,3 

y  component  of  the  surface 
normal  vector  (ft). 

41-50 

F10.1 

VN 

20,3 

z  component  of  the  surface 
normal  vector  (ft). 

51-55 

15 

IMATL 

20 

Material  identification 

number  for  the  material  of 
this  surface.  The  material 
number  Is  determined  by  the 
order  of  Input  of  the 
materials  flammability  pro¬ 
perties.  (See  Table  IV) 

One  to  nine  type  9  records  may  appear  In  the  file.  The  exact  number  Is  given 
by  the  value  of  NSG. 


F10.1 


11-20  F10.1 


Seat  group  width  (ft).  Must 
be  a  multiple  of  0.5  ft. 

X-coordlnate  of  the  lefthand 
forward  corner  of  the  seat 
group  (ft). 


15 


TABLE  III  (Continued) 
CABIN  GEOMETRY  DESCRIPTION 


i 

l 


Record 

Type 


Column 


Variable 

Format  Name  Dimension 


Description 


9  21-30  F10.1  YCOR  9  Y-coordlnate  of  the  lefthand 

forward  corner  of  the  seat 
group  (ft). 

Note:  The  x  and  y  coordinates  of  the  seat  group  corners  are  measured  with 
respect  to  a  coordinate  system  located  at  the  forward  lefthand  (looking  aft) 
corner  of  the  detailed  section.  The  x-axIs  of  this  system  extends  to  the 


right 

aft. 

across  the 

forward  edge  of  the 

detailed 

section  and  the  y-axls  extends 

10 

1-14 

712 

IMATLS 

7 

Seat  surface  material  Iden¬ 
tification  numbers.  The 
first  value  is  the  material 
number  of  surface  one  of  all 
seat  groups,  the  second  for 
surface  two,  etc.  (See 
Figure  2  for  the  definition 
of  seat  surface  numbering). 

11 

1-10 

F10.1 

DWS 

Separation  distance  between 
outboard  seat  groups  and 
sidewalls  (ft).  Must  be  a 
multiple  of  0.5  ft. 

11 

11-20 

F10.1 

RFWS 

Flame  spread  rate  from  out¬ 
board  seats  to  sidewalls 
(ft/sec). 

11 

21-40 

415 

IMTLP 

4 

Material  Identification 
number  for  the  partition 
surfaces  of  each  compart¬ 
ment.  Enter  In  numerical 
order  by  the  compartment 
number.  Both  partition  sur¬ 
faces  for  a  given  compart¬ 
ment  are  of  the  same 
material  type. 

12 

1-5 

15 

NV 

-- 

Number  of  vents  In  the 

cabin.  This  Is  the  total 
number  for  all  compartments. 
(A  vent  must  not  be  counted 
twice  If  It  connects  two 
compartments.)  Maximum 
value  Is  24;  minimum  value 
Is  zero. 


16 


TABLE  III  (Concluded) 
CABIN  GEOMETRY  DESCRIPTION 


Record  Variable 

Type  Column  Format  Name  Dimension  Description 


One  to  24  records  of  type  13  may  appear;  the  exact  value  is  given  by  NV.  If 
NV  *  0  do  not  include  any  records  of  type  13.  A  vent  connects  one  compartment 
to  another  or  a  compartment  to  the  exterior.  The  numbers  of  the  connected 
compartments  are  given  by  the  first  two  Integer  numbers  in  the  record.  When 
the  vent  connects  a  compartment  to  the  exterior  specify  the  exterior  as  com¬ 
partment  number  5.  No  compartment  may  have  more  than  six  vents. 


13 

1-5 

15 

11 

— 

Compartment  number  (1  to  5). 

13 

6-10 

15 

12 

— 

Compartment  number  (  1  to  5 
but  not  equal  to  11) 

13 

11-20 

F10.1 

VENTT 

24 

Distance  from  floor  to  top 
of  vent  opening  (ft). 

13 

21-30 

F10.1 

VENTH 

24 

Height  of  vent  opening  (ft). 

13 

31-40 

F10.1 

VENTW 

24 

Width  (horizontal  dimension) 
of  vent  opening  (ft). 

13 

41-50 

F10.1 

FLOW 

24 

Forced  air  flow  rate  through 
vent  (if  applicable) 
(ft.3/min).  To  specify  a 
"free  flow"  vent  enter  this 
value  as  0. 

13 

51-55 

15 

INTO 

24 

When  a  non-zero  forced  flow 
is  specified  this  variable 

is  the  compartment  number 
into  which  the  flow  Is 
directed.  No’  value  is 
required  if  this  Is  a  free 
flow  vent. 


2.3  MATERIALS  FLAMMABILITY  DATA 


Record  types  14  through  36  contain  the  laboratory  flammability  data  on 
the  cabin  materials  and  additional  related  information.  The  number  of  records 
of  each  type  will  in  most  cases  depend  on  the  number  of  individual  material 
types  used.  The  numbering  of  the  materials  Is  established  by  the  order  in 
which  the  type  16  records  are  read.  The  material  numbering  convention  set  by 
the  reading  of  the  type  16  records  must  be  preserved  in  ordering  the  materials 
data  on  the  following  records.  This  requirement  is  explained  in  detail  for 
each  record  type.  Table  IV  gives  specific  instructions  on  the  preparation  and 
ordering  of  the  materials  data. 

TABLE  IV 

MATERIALS  FLAMMABILITY  DATA 

Record  Variable 

Type  Column  Format  Name  Dimension  Description 

14  1-5  15  NMATLS  —  Number  of  lining  and  seat 

surface  material  types. 
Maximum  value  is  seven  and 
the  minimum  value  is  one. 

14  6-10  15  NTXG  —  Number  of  trace  gas  species 

to  be  used  in  the  cabin 
atmosphere  model.  Maximum 
value  is  five  and  minimum 
value  is  zero. 

The  number  of  records  of  type  15  to  be  Included  in  the  input  is  given  by  the 
value  of  NTXG,  so  that  a  maximum  of  five  and  a  minimum  of  zero  can  appear. 

15  1-4  A4  NGS  —  Alphanumeric  name  of  the 

trace  gas  specie.  Maximum 
of  four  characters  is 
allowed. 

The  number  of  records  of  type  16  to  be  included  in  the  input  is  given  by  the 
value  of  NMATLS  entered  In  record  type  14.  At  least  one  type  16  record  must 
appear.  When  more  than  one  type  16  record  appears,  the  order  of  the  records 
establishes  the  numerical  order  for  the  input  of  all  materials  data  which 
follows. 

16  1-10  F10.1  QTAB  7  Heat  of  combustion  for  this 

material  (Btu/lbm).  This  is 
the  "effective  value"  as 
described  in  Sec.  4.3  of 
Volume  I. 

16  11-20  F10.1  GTAB  7  Stoichiometric  oxygen-to- 

fuel  mass  ratio  for  this 
material  (-). 


18 


TABLE  IV  (Continued) 
MATERIALS  FLAMMABILITY  DATA 


Record 

Type 

Column 

Format 

Variable 

Name 

Dimension  Description 

16 

21-30 

F10.1 

WMMTL 

7 

Molecular  weight  for  this 
material  (lbm/lbmole) 
(sub-unit  value  or  effective 
value  for  pyrolyzate  vapor) 

16 

31-40 

F10.1 

RTAB 

7 

Pyrolyzate  (fuel)  vapor  den¬ 
sity  (lbm/ft3). 

16 

41-50 

F10.1 

UTAB 

7 

Pyrolyzate  vapor  blowing 
velocity  at  the  fuel  surface 
(ft/sec). 

16 

51-60 

F10.1 

RADTAB 

7 

Fraction  of  material's  total 
heat  of  combustion  which  is 
lost  by  flame  radiation  (-). 

The  order  of  the  data  items  In  the  record 
be  In  agreement  with  the  order  established 
records. 

for  record  types  17  through  20  must 
for  the  materials  by  the  type  16 

17 

1-80 

8F10.1 

QP 

7 

Threshold  radiation  flux 
levels  for  transition  to  the 
smoldering  state  for  each 
material  (Btu/ft2-sec). 

18 

1-80 

8F10.1 

TP 

7 

Transition  times  to 
smoldering  for  each  material 
(sec). 

19 

1-80 

8F10.1 

TPC 

7 

Times  for  the  smoldering-to- 
charred  transition  for  each 
material  (sec). 

20 

1-80 

8F10.1 

RSS 

7 

Rates  of  smoke  emission  for 
each  material  in  the 
smoldering  state 
(partic1es/ft2-sec). 

Type  21  records  contain  the  trace  gas  species  release  rates  in  the  smoldering 
state  by  each  material.  Each  record  contains  the  rates  of  release  of  one  spe¬ 
cies  by  all  materials.  The  order  of  the  entries  in  each  type  21  record  must 
correspond  to  the  order  of  the  materials  as  given  by  the  order  of  the  type  16 
records.  The  order  of  the  type  21  records  must  agree  with  the  order  of  the. 
type  15  records.  If  no  trace  species  are  to  be  used,  do  not  Include  any  type  21 
records  In  the  Input  file.  Note  that  each  rate  Is  interpreted  to  be  scaled  by 
f  a  factor  of  10®. 


TABLE  IV  (Continued) 
MATERIALS  FLAMMABILITY  DATA 


Record  Variable 

Type  Column  Format  Name  Dimension  Description 


21  1-80  8F10.1  RGS  5,7  Release  rates  of  each  trace 

gas  species  (lbm/ft2-sec)  x 

106. 

Record  types  22  through  34  contain  the  flaming  state  properties  for  each 
material.  Each  record  is  a  table  containing  six  pairs  of  numbers.  The  first 
member  of  each  pair  is  a  radiation  flux  level  (Btu/ft2-sec)  and  the  second  is 
the  appropriate  flaming  state  property  for  that  flux  level.  The  data  pairs 
should  be  ordered  by  ascending  values  of  the  radiation  flux  level.  The 
general  format  is  Illustrated  for  record  type  22.  This  format  applies  for  all 
succeeding  record  types  through  34.  The  number  of  records  of  each  type  must 
equal  the  number  of  materials  and  at  least  one  record  of  each  type  must 
appear.  The  order  of  the  records  of  one  type  in  a  group  must  agree  with  the 
order  of  materials  as  established  by  the  order  of  the  tyoe  16  records. 


22 

1-5 

F5.1 

TABX 

18,7,6 

First  radiation  flux  level 
(Btu/ft2-sec). 

22 

6-13 

F8.1 

TABY 

18,7,6 

First  horizontal  flame 
spread  rate  (ft/sec). 

22 

14-18 

F5.1 

TABX 

18,7,6 

Second  flux  level. 

22 

19-16 

F8.1 

TABY 

18,7,6 

Second  flame  spread  rate. 

22 

27-31 

F5.1 

TABX 

18,7,6 

Third  flux  level. 

22 

32-39 

F8.1 

TABY 

18,7,6 

Third  flame  spread  rate. 

22 

40-44 

F5.1 

TABX 

18,7,6 

Fourth  flux  level. 

22 

45-52 

F8.1 

TABY 

18,7,6 

Fourth  flame  spread  rate. 

22 

53-57 

F8.1 

TABX 

18,7,6 

Fifth  flux  level. 

22 

58-65 

F8.1 

TABY 

18,7,6 

Fifth  flame  spread  rate. 

22 

66-70 

F5.1 

TABX 

18,7,6 

Sixth  flux  level. 

22 

71-78 

F8.1 

TABY 

18,7,6 

Sixth  flame  spread  rate. 

23 

6  pairs  of  flux 
(ft/sec)  in  the 

levels 

format 

and 

of 

vertical 
type  22. 

upward  flame  spread  rates 

24 

6  pairs  of  flux 
(ft/sec)  in  the 

levels 

format 

and  vertical 
of  type  22. 

downward  flame  spread  rates 

20 


■i> 


TABLE  IV  (Continued) 
MATERIALS  FLAMMABILITY  DATA 


Record  Variable 

Type  Column  Format  Name  Dimension  Description 


25  6  pairs  of  flux  levels  and  times-to-ignite  (sec)  in  the  format  of 
type  22. 

26  6  pairs  of  flux  levels  and  heat  release  rates  (Btu/ft2-sec)  for  the 
flaming  state  in  the  format  of1  type  22. 

27  6  pairs  of  flux  levels  and  smoke  release  rates  (particles/ft2-sec) 
for  the  flaming  state  in  the  format  of  type  22. 

28  6  pairs  of  flux  levels  and  smoldering  lag  times  (sec)  in  the  format 
of  type  22. 

29  6  pairs  of  flux  levels  and  times-to-burn  out  (sec)  in  the  format  of 
type  22. 


Record  types  30  through  34  contain  the  rates  of  release  of  the  trace  gas  spe¬ 
cies  in  the  flaming  state.  Type  30  records  give  the  rates  for  the  first  spe¬ 
cies,  type  31  for  the  second,  etc.  If  there  are  fewer  than  5  trace  gases,  omit 
the  corresponding  record  types.  The  order  of  the  records  within  a  group  of 
the  same  record  type  should  follow  the  material  type  ordering  established  by 
the  order  of  the  type  16  records.  To  save  space,  all  rates  of  release  are 
scaled  by  multiplying  the  values  in  lbm/ft2-sec  by  10®. 

30  6  pairs  of  flux  levels  and  release  rates  of  the  first  trace  gas 
specie  (lbm/ft2-sec)  x  10®  in  the  format  of  type  22. 

31  6  pairs  of  flux  levels  and  release  rates  of  the  second  trace  gas 
speci e  (lbm/ft2-sec)  x  10®  in  the  format  of  type  22. 

32  6  pairs  of  flux  levels  and  release  rates  of  the  third  trace  gas 
specie  (lbm/ft2-sec)  x  10®  in  the  format  of  type  22. 

33  6  pairs  of  flux  levels  and  release  rates  of  the  fourth  trace  gas 
specie  (lbm/ft2-sec)  x  10®  in  the  format  of  type  22. 

34  6  pairs  of  flux  levels  and  release  rates  of  the  fifth  trace  gas 
specie  (lbm/ft2-sec)  x  10®  in  the  format  of  type  22. 

Record  type  35  contains  the  bulk  thermal  properties  of  the  materials,  one 
record  for  each  material  type.  The  number  and  order  of  the  type  35  records 
must  follow  that  established  by  the  type  16  records. 


TABLE  IV  (Concluded) 
MATERIALS  FLAMMABILITY  DATA 


Record 

Variable 

Type 

Column 

Format 

Name 

Dimension 

Description 

35 

1-10 

F10.1 

CPM 

7 

Specific  heat  capacity  of 
the  material  (Btu/lbm-R). 

35 

11-20 

F10.1 

RHOM 

7 

Density  of  the  material 
(lbm/ft^). 

35 

21-30 

F10.1 

TKNS 

7 

Material  thickness  (ft). 

35 

31-40 

F10.1 

CNDCTY 

7 

Thermal  conductivity*  for 
the  insulation  behind  this 
material  (Btu/ft-sec-R). 

35 

41-50 

F10.1 

TKNSIN 

7 

Insulation  thickness*  (ft). 

*Insulation  properties  are 

requi red 

only  for  cabin  lining  surface  materials. 

36 

1-10 

F10.1 

TAM 

— 

Ambient  temperature  (R). 

36 

11-20 

F10.1 

PAMB 

— 

Ambient  pressure  (lbf/ft^) 

2.4  IGNITION  MODE 

Record  types  37  through  47  describe  the  mode  of  ignition  of  the  cabin 
fire  including  the  characteristics  of  the  ignition  fire  fuel  and  gases  which 
may  enter  the  cabin  from  an  exterior  fire. 


22 


TABLE  V 

IGNITION  MODE  DATA 

Record  Variable 


Type 

Column 

Format 

Name 

Dimension 

Description 

37 

1-10 

F10.1 

QCI 

Heat  of  combustion  of  the 
ignition  fire  fuel  (Btu/lbm) 
(Use  the  total  value,  not 
the  "effective"  value  as  in 
the  case  of  the  cabin 
materials). 

37 

11-20 

F10.1 

GAM  I 

—  “ 

Stoichiometric  oxygen-to- 
fuel  mass  ratio  for  the 
ignition  fire  fuel  (-). 

37 

21-30 

F10.1 

VIMIGN 

Molecular  weight  of  the 
ignition  fire  fuel 
(Ibm/lbmole)  (sub-unit  value 
or  effective  value  for  pyro- 
lyzate  vapor). 

37 

31-40 

F10.1 

RHOI 

Pyrolyzate  (fuel )  vapor  den¬ 
sity  (lbm/ft3)  of  the  igni¬ 
tion  fire  fuel. 

37 

41-50 

F10.1 

XMU I 

•• 

Pyrolyzate  (fuel )  vapor 
blowing  velocity  (ft/sec)  of 
the  ignition  fire  fuel. 

37 

51-60 

F10.1 

RADI 

Fraction  of  the  heat  of  com¬ 
bustion  of  the  Ignition  fire 
fuel  that  is  lost  by  flame 
radiation  (-). 

37 

61-70 

F10.1 

XMFI 

Amount  of  ignition  fire  fuel 
(lbm).  This  quantity  and 
the  values  of  RHOI,  XMU I, 
and  RAMPT  will  determine  the 
duration  of  the  ignition 
fire.  See  below. 

38 

1-10 

F10.1 

DQI 

— 

Heat  release  rate  for  the 
ignition  fire  (Btu/ft^-sec) . 
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TABLE  V  (Continued) 
IGNITION  MODE  DATA 


Record 

Type 

Column 

Format 

Variable 

Name 

Dimension  Description 

38 

11-20 

F10.1 

RAMPT 

"Ramp-in"  time  for  the  igni¬ 
tion  fire  (sec).  May  be 
entered  as  0.0  if  no  ramp-in 
period  is  desired. 

39 

1-10 

F10.1 

RSI 

Smoke  release  rate  of  the 
ignition  fire 
(particles/ft2-sec). 

Columns  11  through  60  of  record  type  39  contain  the  rates  of  release  of  the 
trace  gases  by  the  ignition  fire.  Entries  need  only  be  made  for  the  par¬ 
ticular  number  of  gases  to  be  used  for  a  given  case.  The  order  of  the  rates 
must  conform  to  the  species  order  established  by  the  type  15  records. 


39 

11-20 

F10.1 

RTGI 

5 

Release  rate  of  the  first 
trace  gas  by  the  ignition 
fire  (lbm/ft2-sec)  x  106. 

39 

21-30 

F10.1 

RTGI 

5 

Release  rate  of  the  second 
trace  gas  by  the  ignition 
fire  (lbm/ft2-sec)  x  106. 

39 

31-40 

F10.1 

RTGI 

5 

Release  rate  of  the  third 
trace  gas  by  the  ignition 
fire  (lbm/ft2-sec)  x  106. 

39 

41-50 

F10.1 

RTGI 

5 

Release  rate  of  the  fourth 
trace  gas  by  the  ignition 
fire  (lbm/ft2-sec)  x  106. 

39 

51-60 

F10.1 

RTGI 

5 

Release  rate  of  the  fifth 
trace  gas  by  the  ignition 
fire  (lbm/ft2-sec)  x  10®. 

40 

1-5 

15 

IGSN 

Lining  surface  number  on 
which  the  ignition  fire  is 
located. 
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TABLE  V  (Continued) 
IGNITION  NODE  DATA 


Record  Variable 

Type  Column  Format  Name  Dimension  Description 


41  1-5  15  NIJSQ  —  Number  of  surface  elements 

which  make  up  the  base  area 
of  the  Ignition  fire. 
Maximum  value  of  100  and  a 
minimum  value  of  1. 

41  6-15  F10.1  PIGN  —  Length  of  the  perimeter  of 

the  base  area  of  the  igni¬ 
tion  fire  (ft). 

Record  type  42  contains  the  I  and  J  Indices  of  the  elements  which  form  the 
base  of  the  Ignition  fire,  one  pair  of  Indices  per  record.  The  total  number 
of  records  must  be  equal  to  the  value  of  NIJSQ  on  record  type  41.  Order  of 
the  type  42  records  Is  not  Important. 


42 

1-5 

15 

IGNIJ 

2,100 

I  Index  of  an  Ignition  fire 
base  element. 

42 

6-10 

15 

I GNIJ 

2,100 

J  index  of  an  Ignition  fire 
base  element. 

Record 

ments 

enter 

44. 

types 
to  the 
a  value 

43  and  44 
charred, 
of  zero 

may  be  used  to 
and  thus  Inert, 
on  record  type 

set  any 
state. 

43  and  do 

number  of  lining  surface  ele- 
If  no  elements  are  to  be  so  set, 
not  Include  any  records  of  type 

43 

1-5 

15 

NIJC 

Number  of  lining  surface 
elements  to  be  set  to  the 
charred  state.  Maximum 
value  Is  600. 

44 

1-5 

15 

I 

— 

I  index  of  a  charred 
element. 

44 

6-10 

15 

J 

J  index  of  a  charred 

element. 


Record  types  45,  46,  and  47  allow  the  user  to  specify  the  Inflow  of  exterior 
fire  gases  through  a  compartment  vent.  If  no  such  Inflow  is  to  be  specified, 
enter  a  value  of  zero  on  record  type  45  and  omit  record  types  46  and  47. 


TABLE  V  (Continued) 
IGNITION  MODE  DATA 


Record 

Type 

Column 

Format 

Variable 

Name 

Dimension 

Description 

45 

1-5 

15 

IFRVNT 

-- 

Vent  number  through  which 
exterior  fire  gases  may 
enter. 

46 

1-10 

F10.1 

RHOEFG 

-- 

Density  of  the  exterior  fire 
gases  (Ibm/ft3). 

46 

11-20 

F10.1 

TEFG 

— 

Temperature  of  the  exterior 
fire  gases  (R). 

46 

21-30 

F10.1 

FLOW IN 

-- 

Mass  Inflow  rate  of  exterior 
fire  gases  (lbm/sec). 

46 

31-40 

F10.1 

FLWOUT 

Mass  outflow  rate  of  com¬ 
partment  lower  zone  gases 
(lbm/sec). 

47 

1-10 

F10.1 

CHIEFG 

11 

Mass  fraction  of  N£  in  the 
exterior  fire  gases  (-). 

47 

11-20 

F10.1 

CHIEFG 

11 

Mass  fraction  of  O2  in  the 
exterior  fire  gases  (-). 

47 

21-30 

F10.1 

CHIEFG 

11 

Mass  fraction  of  fuel  vapor 
in  the  exterior  fire  gases 
(-). 

47 

31-40 

F10.1 

CHIEFG 

11 

Mass  fraction  of  the  CO2  in 
the  exterior  fire  gases  (-). 

47 

41-50 

F10.1 

CHIEFG 

11 

Mass  fraction  of  the  H2O  in 
the  exterior  fire  gases  (-). 

47 

51-60 

F10.1 

CHIEFG 

11 

Mass  fraction  of  the  first 
trace  specie  in  the  exterior 
fire  gases  (-). 

47 

71-80 

F10.1 

CHIEFG 

11 

Mass  fraction  of  the  third 
trace  specie  In  the  exterior 
fire  gases  (-). 
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TABLE  V 

(Concluded) 

IGNITION 

MODE  DATA 

Record 

Type 

Column 

Format 

Variable 

Name 

Dimension 

Description 

If  more  than  two  trace  species  are  to  be  used.  Include  a  second  type  47  record 
for  the  remaining  species  and  smoke  content  of  the  exterior  fire  gases.  If 
one  or  two  species  are  used,  all  the  exterior  fire  gas  composition  data  may  be 
Included  in  the  one  type  47  record. 

47 

1-10 

F10.1 

CHIEFG 

11 

Mass  fraction  of  the  fourth 
trace  specie  in  the  exterior 
fire  gases  (-). 

47 

11-21 

F10.1 

CHIEFG 

11 

Mass  fraction  of  the  fifth 
trace  specie  in  the  exterior 
fire  gases  (-). 

47 

21-30 

F10.1 

CHIEFG 

11 

Concentration  of  smoke  in 
the  exterior  fire  gases 
(particles/lbm). 

The  user  has  the  option  of  "ramping-in"  the  ignition  fire,  that  is, 
allowing  the  fire  heat  and  product  release  rate  to  grow  linearly  over  a  spe¬ 
cified  time  period  until  the  maximum  burning  rate  is  reached.  This  capability 
was  added  to  DACFIR3  to  allow  a  more  realistic  simulation  of  a  common  method 
of  ignition  in  full-scale  tests,  pool  fires  of  liquid  fuels. 

To  prepare  consistent  values  for  the  data  items  on  record  types  37  and 
38,  the  followinq  relationships  among  these  properties  of  the  ignition  fire 
and  fuel  should  be  noted.  (1)  The  product  of  the  mass  burning  rate,  given  by 
(RHOI).(XMUI),  and  the  effective  heat  of  combustion  should  equal  the  specific 
heat  release  rate: 


DQI  *  ( RHO I ) • ( XMU I ) • ( I-RADI )  •  (QCI ). 

The  values  of  DQI,  RSI,  and  RTGI  are  the  maximum  release  rates  of  heat,  smoke, 
and  gases  for  the  fully  developed  iqnition  fire  which  will  be  obtained  after 
the  ramp-in  period.  (2)  During  the  ramp-in  period,  the  values  of  the  heat, 
smoke,  and  gas  release  rates  and  oxygen  consumption  rate  start  at  a  value  of 
1/(1  +  RAMPT/DELTAT)  of  their  maximum  values  and  increase  linearly  to  their 
maximum  values  at  the  end  of  the  period  given  by  RAMPT.  (3)  The  total 
duration  of  burning  of  the  Ignition  fire  is  computed  by  the  program  from  the 
input  values  of  XMFI,  RHOI,  XMUI,  RAMPT,  and  NIJSQ  as  follows: 

AFI  *  (0.25). (NIJSQ) 

T BURN I  -  (0.5). (RAMPT)  +  (XMFI)  /  ((AFI) .(RHOI ) - ( XMU I ) ) 
where  TBURNI  is  the  duration  of  burning  in  seconds. 
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SECTION  3 

SAMPLE  INPUT  AND  OUTPUT 


Table  VI  gives  a  sample  Input  data  file  for  DACFIR3.  This  Is  the  data 
file  used  to  simulate  Test  14A  discussed  In  Section  6  of  Volume  I.  This  case 
Involved  a  slnqle  compartment,  two  vents  to  the  exterior,  and  no  exterior  fires. 
The  Iqnltlon  fire  was  a  one  square  foot  pan  of  Jet  A  fuel.  Four  Interior 
material  types  were  used  and  five  trace  gas  species  concentrations  were  com¬ 
puted.  The  other  data  Items,  such  as  Integration  step  size  and  convergence 
tolerance,  are  typical  of  the  values  used  in  all  the  testing  of  DACFIR3  to 
date. 

Table  VII  shows  the  output  of  DACFIR3  at  the  simulated  time  of  120 
seconds  after  Ignition  for  Test  14A. 
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TABLE  VI 

DACFIR3  SAMPLE  INPUT  DATA 


0ACFIR3  TOT  144  24-HAV-19S1  02:00:00 

2.  0  420.  0.  0001  10  4 

4  4  989  0 

7  0  11.  0 

1  1 


4  9 


94  0 


8  1  7 

3 

11. 

0. 

0. 

0 

1. 

1 

4. 

0. 

-1. 

0. 

0. 

2 

3. 

4. 

0. 

0. 

-1. 

3 

1. 

4. 

-1. 

0. 

0. 

2 

9. 

7. 

0. 

0. 

-1. 

2 

t. 

4. 

1. 

0. 

0. 

2 

3. 

4. 

0 

0. 

-1. 

3 

4. 

0 

1. 

0. 

0. 

2 

4  9  4.  0 

3.  0 

4  4  4  4  4  4  4 

0.  9  0.  1 

2 

2 

1  9 

9. 

9. 

2.  9 

900 

1 

1  9 

9. 

9. 

2.  9 

0. 

0 

4  9 


CO  28. 

HCL  34.  9 

HCN  27. 

HF  20 


NG2 

44. 

7000. 

3  .  00 

100. 

0.  079 

7000. 

3.  00 

100. 

0.  079 

7000 

3.  00 

100. 

0.  079 

9971. 

2.  19 

130. 

0.  0739 

2.  2 

2.  2 

2.  2 

2.  2 

9999 

29.  0 

310. 

13.  0 

9999 

49.  0 

443. 

142.  0 

0. 

14.  9 

97.  1 

8.  31 

0. 

71.  9 

0.  72 

43.  7 

0. 

9.  0 

1.  1 

1.  43 

0 

0.  414 

0.  0 

0.  324 

0 

34.  0 

0.  0 

0.  0 

0.  0 

0.  0 

0.  0 

0.  0 

0.  0. 

1. 

0. 

2. 

0. 

0.  0 

1. 

32 

0. 

2.  2 

0.  0172 

0.  0. 

1. 

32 

0. 

0018 

2.  2 

0.  0048 

0.  0.  00412  1. 

32 

0. 

00412 

2.  2 

0.  0171 

0.  0. 

1. 

0. 

2. 

0. 

0.  0. 

1. 

32 

0. 

0499 

2.  2 

0.  09 

0.  0. 

1. 

32 

0. 

0018 

2.  2 

0.  0048 

0  0.  00410  1. 

32 

0. 

00410 

2.  2 

0.  0217 

0.  0. 

1. 

0. 

2. 

0. 

0.  0. 

1. 

32 

0. 

00943 

2.  2 

0.  0172 

0.  0. 

1. 

32 

0. 

0018 

2.  2 

0.  0048 

0.  0.  00410  1. 

32 

0. 

00410 

2.  2 

0.  0178 

0.  999. 

999. 

2. 

999 

0.  4. 

1. 

32 

9. 

47 

2.  2 

9.  3 

0.  10. 

1. 

32 

9. 

9 

2.  2 

4. 

0  12. 

1. 

32 

12. 

2.  2 

4. 

0  0. 

1. 

0. 

2. 

0. 

0.  1. 

1. 

32 

1. 

47 

2.  2 

2.  23 

0  1 

1 

32 

1. 

47 

a.,  a. 

3.  18 

0  1.  17 

32 

1. 

17 

«.  a 

2.  29 

0.  0. 

t 

0 

a. 

0. 

0.  10  0.  3 

0.  10  0.  3 

0.  10  0.  3 

0.  0979  0.  4 


3. 

0. 

4. 

0. 

9. 

0. 

3. 

08 

0. 

0417 

4. 

4 

0 

081 

6. 

0 

128 

3. 

08 

0. 

0089 

3. 

94 

0. 

0112 

6. 

0. 

0179 

3 

08 

0. 

0241 

4. 

4 

0. 

0699 

6. 

0. 

1220 

3. 

0. 

4. 

0. 

9. 

•0 

3. 

08 

0. 

0982 

4. 

4 

0. 

129 

6. 

0. 

197 

3. 

08 

0. 

0089 

3. 

96 

0 

0112 

6. 

0. 

0179 

3. 

08 

0. 

0991 

4. 

4 

0. 

0982 

6 

0. 

1960 

3. 

0. 

4. 

0 

9. 

0. 

3. 

08 

0. 

0484 

4. 

4 

0. 

0833 

6. 

0 

1010 

3. 

08 

0. 

0089 

3. 

96 

0. 

0112 

6. 

0. 

0179 

3. 

08 

0. 

0384 

4. 

4 

0. 

0971 

6. 

0 

0797 

3. 

999. 

4. 

999 

9 

999 

3 

08 

9. 

59 

4. 

4 

4. 

96 

6. 

4 

96 

3. 

08 

4. 

7 

3. 

96 

3. 

3 

6. 

3. 

3 

3. 

08 

4. 

3 

4. 

4 

3. 

22 

6. 

3. 

22 

3. 

0. 

4. 

0. 

5 

0. 

3. 

08 

2. 

44 

4. 

4 

1 

73 

6. 

1. 

73 

3 

OS 

6. 

96 

3 

96 

9 

22 

6 

9 

22 

3 

08 

2 

47 

4 

4 

4 

29 

6 

4 

29 

3 

0 

4 

0 

m 

0 
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TABLE  VI  (Concluded) 
DACFIR3  SAMPLE  INPUT  DATA 


0 

10 

32  14  * 

2.  2  23  1 

3  08  9.  12 

0. 

20 

32  29.  1 

2  2  39.  2 

3.08  89  7 

0. 

3  29 

32  3.  29 

2.  2  9.  09 

3  08  11  * 

0 

0 

0. 

2  0. 

3  0 

0 

0 

32  0 

2  2  0 

3  08  0 

0 

0. 

32  0. 

2  2  0 

3  08  0 

0 

0 

32  0 

2.  2  0. 

3  08  0. 

0. 

999 

999 

2.  999. 

3  999 

0. 

13 

32  *7. 

2.  2  83  3 

3  08  189 

0 

990 

32  477  3 

2  2  934 

3.  08  298.  7 

0. 

7*0 

32  7*0. 

2.  2  *4*. 

3.  08  ***. 

0. 

0. 

0 

2.  0. 

3.  0. 

0 

0. 

32  8.  29 

2.  2  183. 

3.  08  190. 

0. 

29. 

32  30 

2.  2  33.  3 

3.  08  92.  2 

0 

100. 

32  100. 

2.  2  143. 

3.  08  147. 

0. 

0. 

0. 

2.  0. 

3.  0. 

0. 

0. 

32  0. 

2.  2  0. 

3.  08  1.  33 

0. 

4. 

32  9. 

2.  2  3  1 

3.  08  12.  7 

0. 

0. 

32  0. 

2.  2  0. 

3.  08  1.  99 

0. 

0. 

*  0. 

2.  0. 

3.  0. 

0. 

0. 

32  0. 

2.  2  0. 

3.  08  0.  283 

0. 

0. 

32  0. 

2.  2  0. 

3.  08  0. 

0. 

0. 

32  1. 

2.  2  4.  ** 

3.  08  4.  9 

0 

0. 

0. 

2.  0. 

3.  0. 

0. 

0. 

1.  32  29.  * 

2.  2  49.  2 

3.  08  13.  7 

0. 

0. 

1. 

32  0. 

2.  2  0. 

3.  08  0. 

0 

0. 

1. 

32  0. 

2.  2  0. 

3.08  0. 

0. 

0. 

1. 

0. 

2.  0. 

3.  0. 

0. 

0. 

1 

32  0. 

2.  2  0. 

3.  08  0. 

0. 

0. 

1. 

32  0 

2.  2  0. 

3.  08  0 

0. 

0. 

1. 

32  0. 

2.  2  0. 

3.  08  0. 

0.  29 

73 

0.  004 

0.  000084 

0.  29 

0.  29 

73. 

0.  004 

0. 000084 

0.  29 

0.  29 

73. 

0.  021 

0. 000084 

0.  23 

0.  29 

73. 

0.  300 

0. 000084 

0.  29 

942.  C 

211*  29 

18900. 

3.  43 

130. 

0.  944 

0. 0047* 

43.  2 

20 

43.  0 

34 

1 

0.  0 

0.  0 

0.  0 

i 


4  4. 

20  7 

20  S 

21  7 

21  8 

0 

0 


4  4 

17  4 

* 

27  4 

3  9* 

7  9 

*. 

7  9 

4  4 

17 

*. 

23  9 

4. 

0. 

5. 

0 

4  4 

0. 

*. 

0 

3  9* 

0. 

* 

0 

4.  4 

0. 

*. 

0 

4. 

999 

5 

999 

4.  4 

241 

* 

304 

3  9* 

339  3 

*. 

433  3 

4.  4 

643 

*. 

*13 

4. 

0. 

3. 

0. 

4.  4 

107 

6. 

107 

3.  9* 

143.  6 

* 

2*3 

4.  4 

23*. 

* 

344 

4. 

0. 

9 

0 

4  4 

13. 

* 

31  3 

3.  9* 

18.  7 

6 

*.  94 

4.  4 

4  23 

*. 

4  23 

4. 

0 

3. 

0 

4.  4 

0  222 

* 

0.  222 

3  9* 

0. 

*. 

0. 

4.  4 

11 

A 

18. 

4. 

0. 

9 

0. 

4.  4 

12.  3 

* 

12.  3 

3  9* 

0. 

*. 

0 

4  4 

0 

*. 

0 

4. 

0. 

3 

0 

4.  4 

0. 

*. 

0 

3  9* 

0 

*. 

0. 

4  4 

1.  07 

6. 

1  07 

0.  10 

0.  74 

0  0 

i! 

ij 
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TABLE  VII.  0ACFIR3  SAMPLE  OUTPUT 


ft  n 

mu.  n 

CD  x  - 

MU.  ft 

c c  a 


<  ft  o  r j  ft  —  m  n 
0.^0000000 

S  tf  2  S  li  &  *  i  i 

ii/inonooMi 

ipNOO«Oifnnno> 

z  r  2  x  °  ^  n  n 

uiOOlf  roo- 
J004»«nm 

»»  ooooooo 


M 

*-  r»  o  n  r«  { 
<  o  o  o  o  ( 

U.  • 

V  M  M  M  M  V 
ZltlOOxN’ 

m  tn  o  o  m  ft  t 

fftoo  ^  o  5  —  r>  r 

wbd5imb( 
|f<tono( 

peooot 

u.  8  8  §  §  < 
no  u.  ♦  ♦  ♦  ♦  « 

O  IL  O  5  ft  —  «. 

5x  ft  5  o  «  o 
-  ft  o  o-  o  * 
•  nifiUNr 
a  &■  ft  4  4  « 

z  4  o  o  o  6  6  c 


So  o>  n  4  ( 
M  ft 

M  u.  ft  ft  r>  n  « 


t  -  3  3  01  w  ™ 

2*0000000 

SB  SSI!  HU  tty 

5^:2S2gJ2 

Un-*tNONOI 

jggS^SSJRS 

-J-0000000 

K 
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TABLE  VII  (Continued).  DACFIR3  SAMPLE  OUTPUT 


fv 
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TABLE  VII  (Concluded).  DACFIR3  SAMPLE  OUTPUT 


*5 
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SECTION  4 

PROGRAM  STATISTICS 


The  DACFIR3  computer  program  is  written  in  FORTRAN  IV  and  conforms  to 
the  1966  ANSI  standard  for  this  language.  The  code  consists  of  approximately 
4050  source  statements  augmented  by  about  2250  comment  lines.  The  comments  define 
all  important  variables  and  detail  the  function  of  all  parts  of  the  code.  A 
complete  listing  of  DACFIR3  is  contained  in  Appendix  A  of  this  volume. 

The  computer  requirements  for  running  DACFIR3  will  differ  among  dif¬ 
ferent  computer  systems,  but  the  following  data  should  serve  as  a  rough  guide 
to  the  computer  requirements  involved.  The  data  are  for  a  run  made  using  the 
sample  input  data  given  in  Section  3.  The  computer  was  a  Digital  Equipment 
Corporation  VAX-11/780  with  1.5  mbytes  of  physical  memory  and  a  speed  of  about 
700,000  instructions  per  second.  Peak  virtual  memory  required  was  326,000 
bytes.  The  execution  time  (cpu  time)  required  was  1500  seconds  to  simulate 
400  seconds  of  the  fire  test.  A  considerable  variation  of  these  figures  can 
be  expected  if  other  values  for  the  number  of  materials,  number  of 
compartments,  number  of  trace  gases,  integration  step  size,  or  convergence 
tolerance  are  chosen. 
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APPENDIX  A 

LISTING  OF  THE  DACFIR3  COMPUTER  CODE 


This  appendix  contains  the  listing  of  the  DACFIR3  computer  code.  The 
language  is  FORTRAN  IV  and  conforms  to  ANSI  standard  FORTRAN  (X3. 9-1966). 

Copies  of  the  program  may  be  obtained  by  contacting  the  author  at  the 
University  of  Dayton,  telephone  (513)  229-3921. 
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PROGRAM  DACFIR 


C 

C - 

c 

C  COMPUTER  SIMULATION  OF  FIRE  WITHIN  A  TRANSPORT  AIRCRAFT  CABIN 

C 

C  VERSION  3.  0 - 1  APR  1981 

C 

C 

C  MOSEL  AND  CODE  CREATED  FOR  DOT/FEDERAL  AVIATION  ADMINISTRATION 
C  BY  THE  UNIVERSITY  OF  DAYTON  RESEARCH  INSTITUTE  DAYTON,  OHIO  49469 
C 

C  REFERENCES: 

C 

C  C13  "DAYTON  AIRCRAFT  CABIN  FIRE  MODEL  VERSION  3". 

C  VOLUME  1  —  PHYSICAL  DESCRIPTION 

C 

C  C23  "DAYTON  AIRCRAFT  CABIN  FIRE  MODEL  VERSION  3“, 

C  VOLUME  2  —  PROGRAM  USER'S  GUIDE  AND  LISTING 

C 

C 

C  ABBREVIATIONS  USED  IN  THE  PROGRAM  COMMENTS: 

C 


C 

AMB 

m 

AMBIENT 

c 

APNDX 

m 

APPENDIX 

c 

AVG 

m 

AVERAGE 

c 

CALCS 

m 

CALCULATIONS 

c 

CONCS 

m 

CONCENTRATIONS 

c 

CRCTN 

m 

CORRECTION 

c 

DEFN 

m 

DEFINITION 

c 

ELMNT 

m 

ELEMENT 

c 

EXCHNQ 

m 

EXCHANGE 

c 

FP 

• 

FORMAL  PARAMETER 

c 

GRP 

m 

GROUP 

c 

ID 

M 

IDENTIFICATION 

c 

IGN  SRC- 

IGNITION  SOURCE 

c 

INFO 

m 

INFORMATION 

c 

LWR 

m 

LOWER 

c 

MATL 

m 

MATERIAL 

c 

MAX 

u 

MAXIMUM* 

c 

MIN 

m 

MINIMUM 

c 

NEG 

m 

NEGATIVE 

c 

NO 

m 

NUMBER 

c 

PARTS 

m 

PARTICLES  (A  MEASURE  OF  SMOKE  DENSITY,  SEE  C1D 

c 

PGM 

m 

PROGRAM 

c 

POS 

m 

POSITIVE 

c 

PRDCTN 

M 

PRODUCTION 

c 

PSTN 

• 

POSITION 

c 

RT 

m 

RIGHT 

c 

SUBSCR 

M 

SUBSCRIPT 

c 

SMLDRG 

m 

SMOLDERING 

c 

SPRD 

m 

SPREAD 

c 

STMT 

m 

STATEMENT 

c 

SUBR 

m 

SUBROUTINE 

c 

SURF 

m 

SURFACE 

c 

VOL 

m 

VOLUME 

c 

VRBL 

m 

VARIABLE 

c 

WRT 

m 

WITH  RESPECT  TO 

c 

ZN 

m 

ZONE 

C 


U<JOOU<JO<J<JOUUUUOOOOOOOOOOOOOOOUOO 


c - 

C  VARIABLES  AND  PARAMETERS  IN  COMMON  'CNTRL ' 

C 

C  DELTAT  -  SMALL  TIME  STEP  SIZE  (SEC).  USED  IN  GAS  DYNAMICS  CALCULATIONS 

C  DELTSP  »  LARGE  TIME  STEP  SIZE  (SEC).  USED  IN  FLAME  SPREAD  CALCULATIONS 

C  ECOFLG  -  FLAG  TO  CONTROL  INPUT  ECHO  PRINTING 

C  IDELT  a  SMALL  TIME  STEP  OF  THE  SIMULATION.  VALUE  IN  MILLISECONDS. 

C  IDENT  -  ARRAY  FOR  STORING  RUN  ID  (ALPHANUMERIC)  DATA 
C  IDTPRV  -  PREVIOUS  SMALL  TIME  STEP  (MILLISECONDS) 

C  IPEMS  »  FLAG  TO  CONTROL  PRINTING  OF  CABIN  ATMOSPHERE  DATA  BY  SUBR 
C  OUTPUT.  VALUE  -  1  »>  PRINT  DATA  ON  THIS  PASS 

C  IPSPR  -  FLAG  TO  CONTROL  PRINTING  OF  FLAME  SPREAD  DATA  BY  SUBR  OUTPUT 
C  VALUE  ■  1  »>  PRINT  DATA  ON  THIS  PASS 

C  IRATIO  -  RATIO  OF  PASS  THRU  THE  CABIN  ATMOSPHERE  CALCULATIONS  TO  A 

C  PASS  THRU  THE  FLAME  SPREAD  CALCULATIONS  VALUE  >»  1  ALWAYS 

C  ISAVE  -  A  FLAG  TO  CONTROL  NO  OF  SCANS  OF  A  SURF  BY  SUBR  FIRE. 

C  ISCALE  -  MODULUS  FOR  RECOMPUTING  SCALE  FACTORS 

C  ITFIN  -  STOPPING  TIME  FOR  THE  RUN  IN  MILLISECONDS. 

C  ITIME  -  MAIN  TIME  CLOCK  FOR  THE  SIMULATION.  VALUE  IN  MILLISECONDS. 

C  IT1M2  -  CLOCK  FOR  TIMING  PASSES  THRU  FLAME  SPREAD  CALCULATIONS 

C  ITIM2  IS  INCREMENTED  BY  ITSPRD  EACH  FLAME  SPRD  PASS.  VALUE  IN 

C  MILLISECONDS 

C  ITSPRD  -  TIME  INTERVAL  BETWEEN  PASSES  THRU  THE  FLAME  SPREAD 
C  CALCULATIONS.  VALUE  IN  MILLISECONDS. 

C  TFINAL  *  STOPPING  TIME  FOR  SIMULATION  RUN.  SECONDS. 

COMMON/CNTRL/DEL TAT, DELTSP. ECOFLG, IDELT, IDENT(20>. IDTPRV. IPEMS. 

1  IPSPR, IPAUX, IRATIO. ISAVE. ISCALE. ITFIN. ITIME, ITIM2. 

2  ITSPRD. NP ASS,  TFINAL.  IDBUC1. EPSLN.  MAXITR.  MAXCUT. 

3  UCBSKP 

IDBUC1  >  SWITCH  FOR  DEBUGGING  CONTROL  (INACTIVE) 

EPSLN  -  CONVERGENCE  TOLERANCE  GAS  DYNAMICS  CALCS. 

MAXITR  -  MAXIMUM  NUMBER  OF  ITERATIONS  ALLOWED  IN  CAS  DYNAMIC  CALCS. 
MAXCUT  a  MAXIMUM  NUMBER  OF  TIME  STEP  SLICES  ALLOWED  IN  GAS  DYNAMICS 
CALCS. 

JCBSKP  a  SWITCH  FOR  SELECTIVE  SKIPPING  OF  JACOBIAN  EVALUATION  IN  GAS 
DYNAMICS  CALCS. 


VARIABLES  AND  PARAMETERS  IN  COMMON  'FIRES': 

AFM  a  area  OF  EACH  MATERIAL  TYPE  CURRENTLY  FLAMING  ( FT #FT ) .  MAX  7 
VALUES  (ONE  FOR  EACH  MATERIAL).  SUBSCRIPT  IS  MATERIAL  NUMBER. 
ASM  -  AREA  OF  EACH  MATERIAL  CURRENTLY  SMOLDERING  ( FT *FT ) 

I STATE  ■  PACKED  ARRAY  CONTAINING  DATA  ON  STATES  OF  INDIVIDUAL  LININO 
SURFACE  ELEMENTS.  FIRST  SUBSCRIPT  IS  ELEMENT  I  INDEX,  SECOND 
IS  J  INDEX.  ISTATE  IS  PACKED  AS  SHOWN 

ISTATE  -  ITFPC*1000  ♦  ISTP*10  +  1ST 

ITFPC  ■  FRACTION* 1000  OF  THIS  ELMNT  THAT  HAS  BEEN  CONSUMED 
BY  FLAMING  OR  SMLDRNG  COMBUSTION. 

EX:  ITFPC  ■  400  ->  ELMNT  IS  40%  CONSUMED. 

ISTP  a  STATE  OF  THIS  ELMNT  DURING  LAST  PASS  THRU  FLAME  SPRD 
CALCULATIONS.  VALUE  ■  1  THRU  7. 

1ST  -  PRESENT  STATE  OF  THIS  ELMNT.  VALUE  -  1  THRU  7. 

ISTATS  -  PACKED  ARRAY  CONTAINING  DATA  ON  STATES  OF  SINGLE  SEAT  SURFACE 
ELMNTS.  FIRST  SUBSCRIPT  a  SEAT  SURF  I  INDEX,  SECOND  SBSCRPT  a 
SEAT  SURF  J  INDEX.  THIRD  SUBSCRIPT  a  SEAT  GROUP  NUMBER. 
PACKING  AND  CONTENTS  SAME  AS  FOR  ISTATE  SHOWN  ABOVE. 

IWORD  a  PACKED  ARRAY  CONTAINING  DATA  ON  INDIVIDUAL  LINING  SURFACE 
ELMNTS.  SUBSCRIPTING  IS  SAME  AS  ISTATE.  IWORD  IS  PACKED  AS 
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SHOWN: 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


IWORD  ■  I TV* 10000+ I TX 

ITX  ■  TIME  IN  INTEGER  SECONDS  THAT  ELMNT  HAS  BEEN  IN  ITS 
CURRENT  STATE.  MAXIMUM  VALUE  9999  SEC. 

ITY  ■  A  FLAG  USED  TO  IDENTIFY  ELMNTS  AS  CANDIDATES  FOR 
STATE  TRANSITION  ON  THE  NEXT  FLAME  SPREAD  PASS. 

IWORDS  ■  PACKED  ARRAY  CONTAINING  DATA  ON  INDIVIDUAL  SEAT  SURFACE 
ELMNTS.  SUBSCRIPTING  IS  SAME  AS  ISTATS  AND  PACKING  AND 
CONTENTS  SAME  AS  IWORD. 

NFLM  -  TOTAL  NUMBER  OF  FLAMING  ELMNTS  OF  EACH  MATL  TYPE.  SUBSCRIPT 
IS  MATERIAL  NUMBER 

NPYR  ■  TOTAL  NUMBER  OF  SMOLDERING  ELMNTS  OF  EACH  MATL  TYPE, SUBSCRIPT 
IS  MATERIAL  NUMBER 

RGS  *  CONTAINS  RATE  OF  GAS  GENERATION  BY  SMOLDERING  MATERIALS. 

FIRST  SUBSCRIPT  IS  THE  GAS  TYPE  ID  NUMBER,  SECOND  IS  THE 
MATERIAL  NUMBER.  UNITS  ARE  LBM/ < FT *FT*SEC ) . 

RSS  »  CONTAINS  RATE  OF  SMOKE  GENERATION  BY  SMOLDERING  MATERIALS. 

SUBSCRIPT  IS  MATL  NUMBER.  UNITS  ARE  PART/ ( FT*FT*SEC ) . 

TOTGAS  *  TOTAL,  OVER  ALL  MATERIAL  TYPES-  RATE  OF  GAS  EMISSION 
SUBSCRIPT  IS  GAS  SPECIE  NUMBER.  UNITS  ARE  LBM /SEC. 

TOTSEM  *  TOTAL  RATE  OF  SMOKE  EMISSION  IN  PARTICLES/SEC. 

TROF  «  TOTAL  (OVER  ALL  MATERIAL  TYPES)  RATE  OF  CAS  EMISSION  FROM 
ELEMENTS  IN  THE  FLAMING  STATE.  SUBSCRIPT  IS  SPECIE  NUMBER. 
UNITS  ARE  LBM/ <  SEC *SEC ) . 

TROS  «  TOTAL.  OVER  ALL  MATERIAL  TYPES,  RATE  OF  GAS  EMISSION  FROM 

ELEMENTS  IN  THE  SMOLDERING  STATE.  SUBSCRIPT  IS  SPECIE  NUMBER. 
UNITS  ARE  LBM/(SEC*SEC>. 

TRSF  »  TOTAL  RATE  OF  SMOKE  EMISSION  BY  ELEMENTS  IN  THE  FLAMING  STATE 
UNITS  ARE  PARTICLES/ (SEC*SEC> 

TRSS  *  TOTAL  RATE  OF  SMOKE  EMISSION  BY  ELMNTS  IN  THE  SMOLDERING 
STATE.  UNITS  ARE  PARTICLES/ ( SEC*SEC ) 

NCE  »  NUMBER  OF  CHARRED  ELMNTS  ON  THE  SURF  GIVEN  BY  THE  SUBSCRIPT 
VITNR  *  RATE  OF  OXYGEN  CONSUMPTION  (TEMP  VARIABLE  FOR  SUMMATION  USE) 
TOTVIT  *  TOTAL  RATE  OF  OXYGEN  CONSUMPTION  BY  ALL  FIRES,  LJBM/SEC 
RADFIR  ■  FRACTION  OF  HEAT  OF  COMBUSTION  RELEASED  BY  A  FIRE  THAT  IS 
FLAME  RADIATION.  SUBSCRIPT  IS  FIRE  NUMBER. 

ACM  ■  TOTAL  AREA  OF  EACH  MATERIAL  IN  CHARRED  STATE,  SUBSCRIPT  IS 
MATERIAL  NUMBER.  UNITS  FT*FT. 

AF  «  FIRE  BASE  AREAS  (FT*FT>,  SUBSCRIPT  IS  FIRE  NUMBER. 

AFI  *  BASE  AREA  OF  THE  IGNITION  SOURCE  FIRE  ( FT *FT ) . 

AEXP  »  DIFFERENCE  IN  BASE  AREA  BETWEEN  THE  IGNITION  SOURCE  FIRE 
AND  ANY  LARGER  FIRE  WHICH  MAY  SURROUND  AND  CONTAIN  IT. 

COMB  -  COMBUSTION  ZONE  HEIGHT  FOR  EACH  FIRE,  SEE  SUBR  ATMOS.  SUBSCR 
IS  FIRE  NUMBER 

DQK  »  HEAT  RELEASE  RATE  ( BTU/FT*FT*SEC )  FOR  A  FIRE 
FLML  ■  FLAME  LENGTH  OF  A  FIRE.  SUBSCR  IS  FIRE  NUMBER  (FT) 

FSN1  ■  COUNTER  OF  NUMBER  OF  FLAMING  ELMNTS  ON  SEAT  GRP  SURF  l. 

FSN2  *  COUNTER  OF  NUMBER  OF  FLAMING  ELMNTS  ON  SEAT  GRP  SURFS  2, 3, 4, 9 

FSN3  -  COUNTER  OF  NUMBER  OF  FLAMING  ELMNTS  ON  SEAT  GRP  SURFS  6.7 

GAMMA  »  STOICHIOMETRIC  OXYGEN-TO-FUEL  RATIO  FOR  A  FIRE  -  SUBSCR  NO. 

I BURN  ■  A  FLAG  TO  INDICATE  STATUS  OF  THE  IGN  SRC  FIRE 
IF  ■  ARRAY  CONTAINING  INFO  ON  LINING  SURFACE  ELMNTS.  SEE  SUBR  FIRE 
IOMNI  -  MINIMUM  I  INDEX  VALUE  FOR  ELMNTS  OF  IGNITION  SOURCE  FIRE 

IGMNJ  *  MINIMUM  U  INDEX  VALUE  FOR  ELMNTS  OF  IGNITION  SOURCE  FIRE 

IQMXI  ■  MAXIMUM  I  INDEX  VALUE  FOR  ELMNTS  OF  IGNITION  SOURCE  FIRE 

IGMXJ  -  MAXIMUM  U  INDEX  VALUE  FOR  ELMNTS  OF  IGNITION  SOURCE  FIRE 

ICNFIR  *  FLAG  SIGNALING  STATUS  OF  THE  IGN  SRC  FIRE 

IGNFIR-0  ->  IGN  SRC  FIRE  IS  OUT,  -1  ■>  ION  FIRE  IS  BURNINO 
BUT  NOT  YET  DISCOVERED  BY  SUBR  FIRE,  *2  *>  ION  FIRE  BURNING 
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I GNIJ 

IGSN 

ISFIRE 

IVMAX 

IVMIN 

I VMN 

IVMX 

tXFIRE 

I  ZONE 

JVM  AX 
JVMIN 
JVMN 

JVMX 

K 

NFE 

NFIRES 

NIJC 

NIJSG 

NPE 

N8FL 

OMEGA 

PDH 

PXGN 

RF 


RFS 


AND  HAS  SEEN  DISCOVERED. 

ARRAY  CONTAINING  I  AND  J  INDICES  OF  IGN  SRC  ELMNTS.  FIRST 
SUBSCRIPT:  1  ■>  VALUE  IS  I  INDEX,  2  ■>  VALUE  IS  J  INDEX; 
SECOND  SUBSCR  -  ELfINT  NUMBER,  MAX  100  ELMNTS. 

SURFACE  NUMBER  ON  WHICH  IGN  SRC  LIES. 

SEAT  GROUP  NUMBER  ON  WHICH  A  FIRE  IS  LOCATED.  FIRE  NUMBER  IS 
GIVEN  BY  THE  VALUE  OF  THE  SUBSCRIPT. 

MAXIMUM  VALUE  OF  THE  ELMNT  I  INDEX  OF  THE  ELMNTS  WHICH 

COMPOSE  THE  BASE  OF  A  FIRE.  SUBSCRIPT  IS  THE  FIRE  NUMBER. 

MINIMUM  VALUE  OF  THE  ELMNT  I  INDEX  OF  THE  ELMNTS  WHICH 

COMPOSE  THE  BASE  OF  A  FIRE.  SUBSCRIPT  IS  THE  FIRE  NUMBER. 

MIN  I  INDEX  OF  THE  BASE  ELMNTS  OF  A  FIRE.  THIS  IS  A 
TEMPORARY  VRBL  WITH  THE  SAME  FUNCTION  AS  IVMIN  BUT  WITHOUT 
SUBSCRIPTS.  USED  WITHIN  THE  FIRE  LOOP  OF  THE  MAIN  PGM. 

MAX  I  INDEX  OF  THE  BASE  ELMNTS  OF  A  FIRE  -  SEE  ABOVE. 

FLAG  USED  TO  PASS  INFORMATION  ABOUT  FIRES  ON  SEAT  SURFACES 
FROM  SUBR  FIRE  TO  SUBRS  FCONS  AND  PVOLS.  SEE  SUBR  FIRE  FOR 
FULL  DEFINITION. 

ARRAY  OF  FLAGS  INDICATING  THE  ZONE  IN  WHICH  THE  MAJORITY  OF 
A  FIRE  BASE  AREA  LIES.  FIRE  NUMBER  IS  GIVEN  BY  THE  SUBSCRIPT 
VALUE.  IZONE  «  2  »>  BASE  IN  UPPER  ZONE,  *1  ->  BASE  IN  LWR  ZN. 
MAXIMUM  VALUE  OF  THE  ELMNT  J  INDEX  OF  THE  ELMNTS  WHICH 

COMPOSE  THE  BASE  OF  A  FIRE.  SUBSCRIPT  IS  THE  FIRE  NUMBER. 

MINIMUM  VALUE  OF  THE  ELMNT  J  INDEX  OF  THE  ELMNTS  WHICH 

COMPOSE  THE  BASE  OF  A  FIRE.  SUBSCRIPT  IS  THE  FIRE  NUMBER. 

MIN  J  INDEX  OF  THE  BASE  ELMNTS  OF  A  FIRE.  A  TEMPORARY  VRBL 
WITH  SAME  FUNCTION  AS  JVMIN  USED  WITHIN  THE  FIRE  LOOP 
IN  THE  MAIN  PGM. 

MAX  J  INDEX  OF  THE  BASE  ELMNTS  OF  A  FIRE.  A  TEMPORARY  VRBL 
WITH  THE  SAME  FUNCTION  AS  JVMAX  USED  WITHIN  THE  FIRE  LOOP. 
INTEGER  INDEX  IDENTIFYING  EACH  INDIVIDUAL  GROUP  OF  ADJACENT 
FLAMINO  ELMNTS  WHICH  FORM  THE  BASE  OF  A  FIRE,  THE  FIRE 
NUMBER. 

NUMBER  OF  FLAMINO  ELMNTS  ON  THE  SURFACE  GIVEN  BY  THE  VALUE 
OF  THE  SUBSCRIPT. 

THE  TOTAL  NUMBER  OF  CURRENT  ACTIVE  FIRES. 

NUMBER  OF  CHARRED  < AND  THEREFORE  INERT)  ELMNTS  TO  BE 
SPECIFIED  AT  THE  START  OF  A  RUN.  SEE  SUBR  INPUTO. 

NUMBER  OF  IGN  SRC  ELMNTS  TO  BE  SPECIFIED  IN  THE  INPUT. 

SEE  SUBR  INPUTO. 

NUMBER  OF  SMOLDER INO  ELMNTS  ON  THE  SURFACE  GIVEN  BY  THE  VALUE 
OF  THE  SUBSCRIPT. 

ARRAY  CONTAINING  THE  NUMBER  OF  FLAMING  ELMNTS  ON  EACH  OF  THE 
SEVEN  SURFACES  OF  A  SEAT  GROUP.  SUBSCRIPT  VALUE  IS  THE  SEAT 
NUMBER.  ARRAY  IS  USED  AND  RESET  IN  THE  FIRE  LOOP  FOR  EACH 
SEAT  GROUP. 

ARRAY  OF  INVERSE  VOLUMETRIC  EXPANSION  RATIOS  FOR  THE  FLAME 
REGIONS  OF  EACH  FIRE.  SUBSCRIPT  IS  FIRE  NUMBER.  OMEGAS  ARE 
COMPUTED  IN  SUBR  SCAN  AND  PASSED  TO  SUBR  ATMOS  FOR  LATER  USE. 
SMOLDER  I NO  RANGE  OF  A  FIRE  (FT)  SEE  EG  4-4  (P32)  OF  C 1 3. 

USED  WITHIN  THE  FIRE  LOOP  SO  THAT  NO  SUBSCRIPT  IS  NEEDED. 
PERIMETER  LENGTH  OF  THE  IGN  SRC  FIRE  (FT) 

RATE  OF  FLAME  SPREAD  ON  A  CABIN  LINING  SURFACE  (FT/SEC) 

FIRST  SUBSCRIPT  IS  THE  LINING  SURF  NUMBER.  SECOND  INDICATES 
THE  SPREAD  DIRECTION  WRT  THE  I  AND  J  DIRECTIONS. 

VALUE  *  1  «>  NEG  J  DIRECTION 
VALUE  •  2  ->  POS  J  DIRECTION 
VALUE  ■  3  ■>  NEG  I  DIRECTION 

VALUE  ■  4  ->  POS  I  DIRECTION 

RATE  OF  FLAME  SPREAD  ON  SEAT  SURFACES  (FT/SEC).  FIRST  SUBSCR 
IS  SEAT  SURF  NUMBER,  SECOND  IS  SPREAD  DIRECTION  GIVEN  AS  FOR 
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RF  ABOVE. 

RFWS  -  RATE  (FT/SEC)  OF  FLAME  SPREAD  BETWEEN  SEATS  AND  SIDEWALLS 

RGF  -  ARRAY  OF  RATES  OF  GAS  RELEASE  ( LBN/ <  FT *FT *SEC ) )  FOR  EACH  MATL 

FIRST  SUBSCRIPT  IS  CAS  NUMBER ,  SECOND  IS  MATL  NUMBER. 

RCFK  -  TOTAL  RATE  OF  GAS  RELEASE  (LBM/SEC)  FOR  A  GIVEN  FIRE.  SUBSCR 
IS  GAS  NUMBER. 

RHOZ  -  ARRAY  OF  FUEL  VAPOR  DENSITIES  FOR  EACH  FIRE  ( LBM/ ( FT *FT *FT ) ) 
SUBSCRIPT  IS  FIRE  NUMBER. 

RSF  -  ARRAY  OF  CURRENT  SMOKE  GENERATION  RATES 

< PARTICLES/ ( FT*FT*SEC ) )  FOR  EACH  MATL  WHEN  IN  THE  FLAMING 
STATE.  SUBSCR  IS  MATL  NUMBER.  SEE  SUBR  RATES. 

RSFK  -  TOTAL  SMOKE  GENERATION  RATE  (PARTICLES/SEC)  FOR  A  GIVEN  FIRE. 

TOO  -  TOTAL  RATE. OF  HEAT  RELEASE  BY  ALL  INTERIOR  FIRES  (BTU/SEC). 

T8URNI  »  TOTAL  TIME  TO  BURN  FOR  IGNITION  SRC  FIRE  (SEC) 

UZ  -  ARRAY  OF  FUEL  VAPOR  VELOCITIES  AT  THE  BASE  OF  A  GIVEN  FIRE 

(FT/SEC).  SUBSCRIPT  IS  FIRE  NUMBER. 

YZ  »  ARRAY  OF  FIRE  BASE  AREA  (EQUIVALENT)  RADII  (FT).  SUBSCRIPT 

IS  FIRE  NUMBER. 

ZB  -  ARRAY  OF  DISPLACEMENTS  FROM  FLOOR  OF  FIRE  BASE  AREAS  (FT). 

COMMON/FIRES /AFM (7) . ASM(7 ) . I STATE ( 120.  19).  I STATS (G.  16.  22). 

1  I WORD ( 120.  19).  I WORDS < 9,  16.  22) . NFLM(7) , NPYR (7) . 

2  ROS< 10.  7) ,  RSS(7>.  TOTOAS( 10).  TOTSEM.  TROF ( 10). 

3  TROS(  10).  TRSF.  TRS8.  NCE(30)>  VITNR,  TOTVIT.  RADFIROO). 

4  ACM (7) .  AF ( 30) .  AFI,  AEXP.  COMB (30) .  DOK.  FLML(30>.  FSN1. 

9  FSN2.  FSN3. Q AMMA ( 30 > ,  I BURN.  IF(600>.  I OMNI.  IOMNU.  IOMXI. 

6  IOMXJ.  IGNFIR,  IGNI J(2.  100).  IGSN.  ISFIRE<30>.  IVMAXOO). 

7  IVMINOO) .  IVMN.  IVMX,  IXFIRE.  I  ZONE  ( 30) ,  JVM  AX  ( 30) . 

8  JVM  IN  (30 ) .  JVMN.  JVMX,  K.  NFE(  30) .  NFIRES.  NIJC,  NIJSQ, 

R  NPE ( 30) . N8FH 7) . OMEGA (30) . PDH. P IGN.  RF(20.  4). RFS(7.  4). 

1  RFWS. ROF ( 10. 7), R0FK( 10). RHOZ (30). RSF (7),  RSFK. TDQ. 

2  TBURNI .  UZ ( 30 ) >  YZ ( 30 ) .  ZB ( 30) . RHOEFQ. CHIEFG (11). 

3  FLOW IN. FLWQUT . TEFG. IFRVNT . GENRAT ( 1 1 > , TDQMTL ( 7 ) . 

4  TP  ( 7 ) .  TPC  ( 7 ) 

C 

C - - - - - 

C  VARIABLES  AND  PARAMETERS  IN  COMMON  'OASES': 

C 

C  CHIL  •  ARRAY  OF  MASS  FRACTIONS  OF  OAS  SPECIES  IN  LWR  ZONE.  FIRST 
C  SUBSCR  IS  GAS  NO.  SECOND  IS  COMP  NO. 

C  CHIU  *  ARRAY  OF  MASS  FRACTIONS  OF  OAS  SPECIES  IN  UPR  ZONE.  FIRST 
C  SUBSCR  IS  GAS  NO.  SECOND  IS  COMP  NO. 

C  CP  -  CONSTANT  PRESSURE  HEAT  CAPACITY  OF  CABIN  OASES  (BTU/L8M*R ) 

C  JCOR  -  CORRESPONDENCE  ARRAY  FOR  SCALING 

C  NO AS  *  ARRAY  OF  ALPHANUMERIC  (CHARACTER)  NAMES  OF  GAS  SPECIES. 

C  SUBSCR  IS  GAS  NO. 

C  NSPCS  •  TOTAL  NUMBER  OF  SPECIES  (INCLUDING  SMOKE) 

C  PAMB  •  AMBIENT  DENSITY  AT  CABIN  FLOOR  LEVEL  (LBM/ (FT*BEC*SEC ) ) 

C  PF  -  ARRAY  OF  PRESSURES  AT  THE  FLOOR  OF  EACH  COMPARTMENT.  SUBSCR 

C  IS  COMP  NO.  (LBM/(FT*SEC*9EC) ) 

C  RHOAM  *  AMBIENT  DENSITY  (LSM/(FT*FT*FT> ) 

C  RHOL  -  ARRAY  OF  DENSITIES  OF  THE  LWR  ZONE.  SUBSCR  IS  COMP  NO. 

C  <LBM/(FT*FT*FT) ) 

C  RHOU  •  ARRAY  OF  DENSITIES  OF  THE  UPR  ZONE.  SUBSCR  IS  COMP  NO. 

C  ( LBM/ ( FT *FT *FT  >  > 

c  TAM  »  AMBIENT  TEMPERATURE  (R) 

C  TL  -  ARRAY  OF  LOWER  ZONE  TEMPERATURES,  SUBSCR  IS  COMP  NO.  (R) 

C  TU  »  ARRAY  OF  UPPER  ZONE  TEMPERATURES.  SUBSCR  IS  COMP  NO.  (R) 

C  TWO  •  ARRAY  OF  SCALE  FACTORS 

C  VOLL  -  ARRAY  OF  LOWER  ZONE  VOLUMES.  SUBSCR  IS  COMP  NO.  ( FT *FT *FT ) 

C  VOLU  ■  ARRAY  OF  UPPER  ZONE  VOLUMES.  SUBSCR  IS  COMP  NO.  ( FT #FT *FT ) 

C  WMOLEC  -  ARRAY  OF  GAS  SPECIES  MOLECULAR  WEIGHTS  (LBM/LBMOLE) 


C  XTHEN  -  ARRAY  FOR  STORAGE  OF  GAS  VARIABLES  AT  THE  PREVIOUS  TIME  STEP. 
C  ZD  -  ARRAY  OF  THERMAL  DISCONTINUITY  POSITIONS  (LOWER  ZONE 

C  THICKNESSES).  SUSSCR  IS  COMP  NO.  (FT) 

COMMON/GASES/CHIL (11. S>. CHIU<  U. 3). CP. NGAS (11).  NSPCS.  PAMB.  PF(S). 

1  RHOAM. RHOL(S). RHOUO). TAM. TL < 3 > .  TU ( 3 ) , VOLL ( 3) . 

2  VOLU(S).  ZD( 3) . XTHEN ( 120)  ■  UMQLEC (11).  TUO( 101 ) . 

3  JCOR ( 120 ) 

C 

C  VARIABLES  AND  PARAMETERS  IN  COMMON  'GMTRY ' : 

C 

C  IMATL  »  MATERIAL  ID  NUMBER  FOR  CABIN  LINING  SURFACE  GIVEN  BY  VALUE  OF 
C  SUBSCRIPT.  MAX  20  VALUES.  ONE  PER  LINING  SURFACE. 

C  IMATS  -  MATERIAL  ID  NUMBER  FOR  SEAT  SURFACE  GIVEN  BY  SUBSCRIPT.  MAX 
C  7  VALUES,  ONE  PER  SEAT  SURFACE. 

C  IMTLP  -  MATERIAL  ID  NUMBER  FOR  CABIN  PARTITION  GIVEN  BY  VALUE  OF 
C  SUBSCRIPT.  MAX  4  VALUES. 

C  IMAX  -  MAXIMUM  VALUE  OF  ELEMENT  I  INDEX  ON  SURFACE  NUMBER  GIVEN  BY 
C  VALUE  OF  SUBSCRIPT. 

C  IMIN  -  MINIMUM  VALUE  OF  ELEMENT  I  INDEX  ON  SURFACE  NUMBER  GIVEN  BY 
C  VALUE  OF  SUBSCRIPT. 

C  IRAY  -  LININO  SURFACE  NUMBER  ON  WHICH  AN  ELEMENT  LIES  WHOSE  I  INDEX 
C  EQUALS  THE  VALUE  OF  THE  SUBSCRIPT. 

C  IRAYS  -  SEAT  SURFACE  NUMBER  ON  WHICH  AN  ELEMENT  LIES  WHOSE  I  INDEX 
C  EQUALS  THE  VALUE  OF  THE  SUBSCRIPT. 

C  JMAX  «  MAXIMUM  VALUE  OF  ELMNT  J  INDEX  ON  SURFACE  GIVEN  BY  VALUE  OF 

C  JMAX 'S  SUBSCRIPT.  MAX  VALUE  OF  JMAX  IS  13.  MINIMUM  1. 

C  JMIN  -  MINIMUM  VALUE  OF  ELMNT  J  INDEX  ON  SURFACE  GIVEN  BY  VALUE  OF 

C  JMIN 'S  SUBSCRIPT.  MAX  VALUE  OF  JMIN  IS  13.  MINIMUM  1. 

C  LSN  -  TOTAL  NUMBER  OF  CABIN  LINING  SURFACES  (FLOOR. SIDEWALLS.  ETC  ) 
C  MAX  VALUE  -  (30- (NUMBER  OF  SEAT  GROUPS)) 

C  MAXELI  -  MAXIMUM  VALUE  OF  ELMNT  I  INDEX  OVERALL.-  HIGHEST  I  INDEX  ON 
C  HIGHEST  NUMBER  LINING  SURFACE. 

C  NCOMPS  *  NUMBER  OF  COMPARTMENTS.  MAX  -  4,  MIN  -  1 

C  NS  «  TOTAL  NUMBER  OF  LININO  SURFACES  «-  SEAT  GROUPS.  MAX  VALUE  -  30 
C  CH  -  CABIN  FLOOR  TO  CEILING  HEIGHT  (FT). 

C  CL  -  CABIN  COMPARTMENT  LENGTHS  (FT),  MAX  -  4 

C  CNCTNS  -  ARRAY  INDICATING  CONNECTIONS  BETWEEN  COMPARTMENTS  BY  VENTS 
C  CW  -  CABIN  WIDTH  AT  FLOOR  (FT). 

C  DUS  -  DISTANCE  (FT)  FROM  SEATS  TO  SIDEWALL  (SEAT  GROUPS  NEAREST 
C  SIDEWALL) 

C  FHMIN  -  MINIMUM  FLOOR  TO  CEILING  OR  HATRACK  DISTANCE  (FT) 

C  FLOW  -  FORCED  FLOW  RATE  (CFM)  THRU  VENT  GIVEN  BY  SUBSCRIPT  VALUE 
C  HSTS  -  HEIGHT  OF  TOP  OF  SEATS  ABOVE  FLOOR  (FT) 

C  IARX  -  INDICATES  POSITION  OF  SEAT  GRPS  WRT  FLOOR.  SEE  SUBR  INIT2  FOR 
C  FULL  DEFINITION. 

C  I ARY  •  INDICATES  POSITION  OF  OVERHEAD  SURFACES  WRT  FLOOR  SEE  SUBR 

C  INIT2  FOR  FULL  DEFINITION. 

C  ICLL  -  SURFACE  NUMBER  OF  LEFTMOST  CEILING  SURFACE 
C  ICLR  -  SURFACE  NUMBER  OF  RIGHTMOST  CEILING  SURFACE 
C  I END  -  HIGHEST  I  INDEX  VALUE  ON  CURRENT  SURF.  SEE  SUBR  FIRE 
C  IFRCMP  -  NUMBER  OF  COMPARTMENT  WITH  INTERIOR  FIRE 

C  IFIRL  -  I  INDEX  OF  SIDEWALL  ELMNTS  NEAREST  TOP  OF  SEATS  ON  LEFT  SIDE 
C  OF  CABIN 

C  IFIRR  -  I  INDEX  OF  SIDEWALL  ELMNTS  NEAREST  BOTTOM  OF  SEATS  ON  RIGHT 
C  SIDE  OF  CABIN 

C  ILSTL  -  I  INDEX  OF  SIDEWALL  ELMNTS  NEAREST  BOTTOM  OF  SEATS  ON  LEFT 
C  SIDE  OF  CABIN 

C  ILSTR  -  I  INDEX  OF  SIDEWALL  ELMNTS  NEAREST  TOP  OF  SEATS  ON  RIGHT  SIDE 
C  OF  CABIN 

C  INTO  -  VALUE  IS  COMPARTMENT  NUMBER  INTO  WHICH  FORCED  FLOW  OCCURS 


! 


C  IONS 
C 

C  ISSULI 
C 

C  ISSULJ 
C 

C  ISSWRI 
C 

C  IS8WRJ 
C 

C  ISWSL 
C 

C  ISWSR 
C 

C  I START 
C  NPROJ 
C 

C  IPJUL 
C 

C  IPJLL 
C 

C  IP  JUR 
C 

C  IPJLR 
C 

C  VEND 
C  UONE 
C 

C  JSTART 
C  NJS 
C 

C  NSC 
C 

C  NV 
C  SCUD 
C  SL 
C 

C  SUO 
C 

C  SX 
C  32 
C  VN 
C 
C 

C  VENTH 
C  VENTW 
C  VENTT 
C 

C  VTOTAL 
C  XMN 
C 

C  XMX 
C 

C  XCOR 
C 

C  YCOR 
C 

C  Z 

C 

C 

C  SSOUO 


I  INDEX  OF  FLOOR  ELMNT  DIRECTLV  UNDER  THE  FORWARD  LEFT  CORNER 
OF  THE  SEAT  CROUP  CIVEN  BY  THE  SUBSCRIPT  VALUE 
ARRAY  OF  I  VALUES  OF  SIDEWALL  ELMNTS  NEAREST  A  CIVEN  SEAT 
CROUP  SEE  SUBR  INIT2  FOR  FULL  DEFN. 

ARRAY  OF  J  VALUES  OF  SIDEWALL  ELMNTS  NEAREST  A  CIVEN  SEAT 
CROUP  SEE  SUBR  INIT2  FOR  FULL  DEFN. 

ARRAY  OF  I  VALUES  OF  SIDEWALL  ELMNTS  NEAREST  A  CIVEN  SEAT 
CROUP  SEE  SUBR  INIT2  FOR  FULL  DEFN 

ARRAY  OF  J  VALUES  OF  SIDEWALLL  EL  PINTS  NEAREST  A  CIVEN  SEAT 
CROUP.  SEE  SUBR  INIT2  FOR  FULL  DEFN. 

ARRAY  GIVING  POSITION  OF  LEFT-HOST  SEAT  GROUPS  WRT  LEFT 
SIDEWALL.  SEE  SUBR  INIT2  FOR  FULL  DEFN. 

ARRAY  GIVING  POSITION  OF  RIGHT-HOST  SEAT  GROUPS  WRT  RIGHT 

SIDEWALL.  SEE  SUBR  INIT2  FOR  FULL  DEFN 

LOWEST  I  INDEX  ON  CURRENT  SURFACE.  SEE  SUBR  FIRE. 

FLAG  TO  INDICATE  PRESENCE  (VALUE  «1 )  OR  ABSENCE  (VALUE  >0)  OF 
A  HATRACK 

SURF  NUMBER  OF  LINING  SURFACE  WHICH  FORMS  THE  TOP  OF  THE  LEFT 
HATRACK. 

SURF  NUMBER  OF  LINING  SURFACE  WHICH  FORMS  THE  BOTTOM  OF  THE 
LEFT  HATRACK. 

SURF  NUMBER  OF  LINING  SURFACE  WHICH  FORMS  THE  TOP  OF  THE 
RICHT  HATRACK 

SURF  NUMBER  OF  LINING  SURFACE  WHICH  FORMS  THE  BOTTOM  OF  THE 
LEFT  HATRACK 

HIGHEST  J  INDEX  VALUE  ON  CURRENT  SURFACE.  SEE  SUBR  FIRE. 

J  INDEX  OF  FLOOR  ELMNT  DIRECTLY  UNDER  THE  FORWARD  LEFT  CORNER 
OF  THE  SEAT  GROUP  GIVEN  BY  THE  SUBSCRIPT  VALUE. 

LOWEST  J  INDEX  ON  THE  CURRENT  SURFACE.  SEE  SUBR  FIRE. 

MAXIMUM  VALUE  OF  THE  ELMNT  J  INDEX  ON  SEATS  SET  TO  THE  FIXED 
VALUE  OF  22  IN  SUBR  INPUTS  AS  SEATS  HAVE  A  STANDARD  SHAPE. 
TOTAL  NUMBER  OF  SEAT  GROUPS  IN  CABIN  SECTION.  MAXIMUM  VALUE 
IS  9 

NUMBER  OF  VENTS 

ARRAY  OF  SEAT  GROUP  WIDTHS  (FT)  SUBSCRIPT  IS  SEAT  GROUP  NO. 
DETAILED  SECTION  (PART  OF  CABIN  WHERE  FIRE  IS  TRACKED) 

LENOTH  (FT)  (NOT  USED  IN  VER  3) 

CABIN  LININO  SURFACE  WIDTH  (FT)  SEE  USER'S  GUIDE  123  FOR  FULL 
DEFINITION.  SUBSCRIPT  IS  SURFACE  NUMBER. 

ARRAY  OF  X  COORDS  OF  LINING  SURFACE  EDGES 

ARRAY  OF  Z  COORDS  OF  LINING  SURFACE  EDGES 

ARRAY  OF  SURFACE  NORMAL  VECTORS  TO  CABIN  LINING  SURFACES 

FIRST  SUBSCRIPT  IS  THE  SURF  NUMBER.  SECOND  SPECIFIES  THE 

COMPONENT  AS  SHOWN:  1  »>  X.  2  »>  Y.  3  »>  Z. 

ARRAY  OF  VENT  HEIGHT  DIMENSIONS  (FT).  SUBSCR  IS  VENT  NUMBER. 

ARRAY  OF  VENT  WIDTHS  (FT).  SUBSCRIPT  IS  VENT  NUMBER. 

ARRAY  OF  DISTANCES  (FT)  FROM  FLOOR  TO  TOP  EDGE  OF  EACH  VENT 
SUBSCRIPT  IS  VENT  NUMBER. 

TOTAL  VOLUME  (CU  FT)  OF  COMPARTMENT  GIVEN  BY  SUBSCRIPT 
ARRAY  OF  MINIMUM  DISTANCES  OF  A  LININO  SURFACE  FROM  THE  FLOOR 
(FT).  SUBSCRIPT  IS  SURFACE  NUMBER. 

ARRAY  OF  MAXIMUM  DISTANCES  OF  A  LININO  SURFACE  FROM  THE  FLOOR 
(FT).  SUBSCRIPT  IS  SURFACE  NUMBER. 

ARRAY  OF  X  COORDINATES  OF  LEFTHAND  FORWARD  CORNER  OF  SEAT 
GROUP  (FT) 

ARRAY  OF  Y  COORDINATES  OF  LEFTHAND  FORWARD  CORNER  OF  SEAT 
GROUP  (FT) 

ARRAY  OF  DISPLACEMENTS  (FT)  OF  CABIN  SURFACES  FROM  FLOOR. 
SUBSCRIPT  IS  SURFACE  NUMBER.  SEE  USER'S  GUIDE  OF  C23  FOR 
FULL  DEFINITION. 

WORKING  VARIABLE  STORING  SUM  OF  WIDTH  OF  ALL  SEAT  GROUPS 
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C  USED  IN  SEAT  VOLUME  CORRECTIONS  IN  SUSR  ATMOS 

C  TVSC  -  TOTAL  VOLUME  < FT *FT *FT )  OF  ALL  SEAT  CROUPS  (NOT  USED) 

C  HT1  -  DISTANCE  FROM  THE  CABIN  CEILING  TO  THE  TOP  OF  THE  SEAT 

C  BACKRESTS  (FT)  (NOT  USED  IN  VERSION  3) 

C  HT2  -  DISTANCE  FROM  THE  CABIN  CEILING  TO  THE  TOP  OF  THE  SEAT 
C  CUSHIONS  (FT).  (NOT  USED  IN  VERSION  3) 

C  HT3  -  DISTANCE  FROM  THE  CABIN  CEILING  TO  THE  BOTTOM  OF  THE  SEAT 
C  CUSHIONS  (FT).  (NOT  USED  IN  VERSION  3) 

c  HT4  -  ARRAY  OF  THE  DISTANCES  FROM  THE  CABIN  CEILING  TO  THE  TOP  EDGE 

C  OF  EACH  VENT  (FT).  (NOT  USED  IN  VERSION  3) 

C  NSSTS  -  NUMBER  OF  SEAT  SURFACES.  FIXED  TO  VALUE  OF  7 

C  SLSW  -  (NOT  USED  IN  VERSION  3) 

COMMON / GMTR Y/ 1 MATL ( 20 ) .  IMATS<7>.  IMTLP(4).  IMAX(30>.  IMIN(30>, 

1  IRAY< 116).  IRAYS ( 22 ) . UMAX ( 30  > .  JMIN <  30 ) .  LSN.  MAXELI.  NS. 

2  CH,  CL (4),  CM.  DUS.  HSTS.  IARX  ( 40,  13 ) ,  IARY(40.  12).  ICLL. 

3  ICLR.  I  END.  IFIRL.  IFIRR,  ILSTL.  ILSTR.  I  ONE  ( V  ) . 

4  ISSULK9.  10),  ISSULJ (9.  10).  ISSURI  (9,  10).  ISSURJ(9.  10). 

9  ISUSLl  19.  9).  I  SUSR  ( 19.  8).  ISTART.  NPROJ.  IPJUL,  IPJLL, 

6  IPJUR,  IP  JLR,  JEND.  JONE  ( 9 ) .  JSTART .  NUS.  NSG.  NV,  SOUD  ( 9 )  > 

7  SL, SUD(20), VN(20. 3) . VENTH(24> .  VENTW(24> .  VENTT < 24 ) , 

5  XMN ( 30 ) . XMX ( 30 ) , XCOR ( 9 ) . YCOR ( 9) . 2(30). SSGWD. TVS6. 

9  HTI.  HT2,  HT3.  HT4(  10),  NSSTS.  SLSU,  SX  ( 30) .  S2  ( 30) , 

1  CNCTNS(24> .  NCOMPS.  IFRCMP, FL0U(24>.  INTO( 24 > , VTOTAL( 4 ) . 

2  FHMIN 
C 

C  VARIABLES  AND  PARAMETERS  IN  COMMON  'MATLS': 

C 

C  TABX  -  TABLE  OF  RADIATION  VALUES  FOR  MATERIAL  PROPERTIES. 

C  FIRST  SUBSCRIPT  IS  THE  PROPERTY  ID.  SECOND  IS  THE  MATERIAL 

C  NUMBER.  THIRD  IS  THE  NUMBER  OF  THE  ENTRY  (MAX  OF  SIX  ENTRIES) 

C  PROPERTY  NUMBERING  IS  AS  SHOWN: 

C  I -HORIZONTAL  FLAME  SPREAD  RATE,  2-UPWARD  FLAME  SPRD  RATE 

C  3— DOWNWAR D  FLAME  SPRD  RATE.  4-  TIME  TO  IONITE. 

C  9-RATE  OF  HEAT  RELEASE,  6-RATE  OF  SMOKE  RELEASE  (FLAMING). 

C  7-TIME  TO  STOP  PYROLYZING  WHEN  INPUT  RADIATION  REMOVED, 

C  8-TIME  TO  BURN  OUT  FROM  FLAMING  STATE 

C  9-RELEASE  RATE  (FLAMING)  OF  FIRST  GAS  SPECIE. 

C  10-RELEASE  RATE  (FLAMINO)  OF  SECOND  GAS  SPECIE,.  AND  SO  ON 

C  THRU  18— RELEASE  RATE  (FLAMING)  OF  THE  10TH  OAS  SPECIE. 

C  TABY  -  TABLE  OF  PROPERTY  VALUES  CORRESPONDING  TO  THE  RADIATION  VALUE 

C  IN  TABX.  SUBSCRIPTING  IS  SAME  AS  TABX.  SEE  Cl]  FOR  UNITS  OF 

C  INDIVIDUAL  PROPERTIES. 

C  NTXG  -  NUMBER  OF  GAS  SPECIES  (NOT  INCLUDING  02  OR  N2> 

C  FOX  I  -  OXYGEN  CONSUMPTION  FACTOR  FOR  ION  SRC  FUEL 

C  RADTAB  -  FRACTION  OF  HEAT  OF  COMBUSTION  OF  A  MATL  THAT  IS  RELEASED  AS 
C  FLAME  RADIATION.  SUBSCRIPT  IS  MATERIAL  NUMBER. 

C  RADI  -  FRACTION  OF  HEAT  OF  COMBUSTION  OF  IGN  SRC  FUEL  THAT  IS 
C  RELEASED  AS  FLAME  RADIATION. 

C  FOX  •  OXYGEN  CONSUMPTION  FACTOR  FOR  EACH  MATL 
C  SUBSCRIPT  IS  MATL  NUMBER. 

C  NMATLS  -  NUMBER  OF  MATERIALS,  MAXIMUM  -  7. 

C  DOI  -  HEAT  RELEASE  RATE  ( BTU/FT *FT *SEC )  FOR  IGNITION  SOURCE  FIRE 

C  DOM  -  HEAT  RELEASE  RATE  ( BTU/FT *FT*SEC )  FOR  A  MATL  (CURRENT  VALUE) 

C  SUBSCR  IS  MATL  NUMBER 

C  GAM I  -  STOICHIOMETRIC  OXYGEN-TO-FUEL  RATIO  FOR  THE  IGN  SRC  FUEL 

C  OTAB  -  STOICHIOMETRIC  OXYGEN-TO-FUEL  RATIO  FOR  MATL  -  SUBSCR  NO. 

C  ITF  •  ARRAY  OF  T1MGB-T0- IONITE  IN  INTEGER  SECONDS  FOR  LININO  SURFS 

C  SUBSCRIPT  IS  SURFACE  NUMBER 

C  ITFC  -  ARRAY  OF  TIMES-TO-BURN-OUT  FROM  FLAMINO  STATE  FOR  LININO 
C  SURFACES.  VALUE  IN  INTEGER  SECONDS.  SUBSCR  IS  SURF  NUMBER 
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ITFCS  *  ARRAY  OF  TIMES-T0-3URN-0UT  FROM  FLAMING  STATE  FOR  SEAT 

SURFACES.  VALUE  IN  INTEGER  SECONDS.  SUBSCR  IS  SURF  NUMBER 
ITFS  -  ARRAY  OF  TIMES-TO-IGNITE  IN  INTEGER  SECONDS  FOR  SEAT  SURFACES 
SUBSCRIPT  IS  SEAT  SURFACE  NUMBER 

I TP  -  ARRAY  OF  TIMES-TO-START-SMOLDER ING  IN  SECONDS  FOR  LINING 

SURFACES.  SUBSCRIPT  IS  SURFACE  NUMBER. 

ITPC  ■  ARRAY  OF  TIMES-TO-SMOLDER-OUT  IN  SECONDS  FOR  LINING  SURFACES 
SUBSCRIPT  IS  SURFACE  NUMBER. 

ITPCS  ■  ARRAY  OF  TIMES-TO-SMOLDER-OUT  IN  SECONDS  FOR  SEAT  SURFACES 
SUBSCRIPT  IS  SEAT  SURFACE  NUMBER 

ITPE  -  ARRAY  OF  "SMOLDERING  LAG"  TIMES  (TIME  TO  STOP  SMOLDERING 

AFTER  EXTERNAL  HEAT  SOURCE  IS  REMOVED)  IN  SECONDS  FOR  LININQ 
SURFACES.  SUBSCRIPT  IS  SURFACE  NUMBER. 

ITPES  -  ARRAY  OF  SMOLDERING  LAG  TIMES  IN  SECONDS  FOR  SEAT  SURFACES 
SUBSCRIPT  IS  SURFACE  NUMBER. 

I TPS  -  ARRAY  OF  TI MES-TO-ST ART-SMOLDER ING  IN  SECONDS  FOR  SEAT 

SURFACES.  SUBSCRIPT  IS  SEAT  SURFACE  NUMBER. 

QCI  -  HEAT  RELEASE  RATE  <  BTU/ ( FT *FT *SEC > )  FOR  FIRE  OF  THE  IGN  SRC 
FUEL. 

OP  ■  ARRAY  OF  THRESHOLD  LEVELS  OF  RADIATION  FOR  TRANSITION  OF  A 

MATERIAL  TO  THE  SMOLDERING  STATE  ( BTU/ (FT*FT*SEC ) > . 

SUBSCRIPT  IS  THE  MATERIAL  NUMBER. 

QTAB  -  ARRAY  OF  HEATS  OF  COMBUSTION  FOR  CABIN  MATERIALS  ( BTU/LBM > 
SUBSCRIPT  IS  MATERIAL  NUMBER 
RHOI  -  IGN  SRC  FUEL  VAPOR  DENSITY  <  LBM/ ( FT *FT *FT ) ) . 

RHOM  -  ARRAY  OF  AVRG  DENSITY  OF  CABIN  INTERIOR  MATLS < LBM/ ( FT*FT*FT ) ) 

RSI  -  SMOKE  GENERATION  RATE  < PARTICLES/ ( FT*FT*SEC ) )  OF  THE  IGN  SRC 

FUEL. 

RTAB  -  ARRAY  OF  FUEL  VAPOR  DENSITIES  ( LBM/ ( FT*FT*FT ) >  OF  THE  CABIN 
MATERIALS.  SUBSCRIPT  is  MATL  NUMBER 
RTCI  ■  ARRAY  OF  GAS  GENERATION  RATES  FOR  THE  IGN  SRC  FUEL 
<LBM/(FT*FT*SEC> ).  SUBSCR  IS  GAS  SPECIE  NUMBER. 

UTAB  *  ARRAY  OF  MATLS  FUEL  VAPOR  VELOCITIES  AT  FIRE  BASE  (FT/SEC) 
SUBSCRIPT  IS  MATL  NUMBER. 

XMFI  -  TOTAL  MASS  OF  IGNITION  SOURCE  FUEL  (LBM) 

XMUI  »  MASS  BURNING  RATE  (LBM/ (FT*FT*SEC ) )  OF  IGN  SRC  FUEL. 

TSL  -  ARRAY  OF  SURFACE  TEMPERATURES  OF  CABIN  LINING  SURFACES  <R) 

TSP  -  ARRAY  OF  SURFACE  TEMPERATURES  OF  CABIN  PARTITIONS 
( BULKHEADS )  (R ) 

CPM  »  ARRAY  OF  AVERAGE  HEAT  CAPACITY  OF  MATERIALS  (BTU/LBM*R> 

TKNS  •  ARRAY  OF  LINING  SURFACE  MATERIALS  THICKNESSES  (FT) 

TKNSIN  «  ARRAY  OF  INSULATION  THICKNESSES  (FT) 

CNDCTY  «  ARRAY  OF  INSULATION  THERMAL  CONDUCTIVITY 
( BTU/ (FT-SEC-R ) ) 

C0MM0N/MATLS/TABXU8.  7,  6)-  TABY<  IB.  7,  A),  NTXG.  FOXI,  RADTAB ( 7 > ,  RADI. 

1  FOX  (7) .  NMATLS.  DQI.  DQM(7) .  GAMI ,  GTAB  <  7) .  ITF(20).  IRAMPT. 

2  ITFC ( 20 ) .  ITFCS ( 7 ) .  ITFS(7>,  ITP(20>,  ITPC(20>.  ITPCS(7>, 

3  ITPE (20).  ITPES(7),  ITPS(7>,  QCI,  QP(7>, QTAB ( 7) , RHOI . 

4  RHOM ( 7 ) . RSI.  RTAB (7), RTGI (10). UTAB ( 7 ) , CNDCTY ( 7 ) ,  XMUI, 

3  XMFI.  TKNS  (7),  TSL  <30.  2.  4),  TSP  (2,  2,  4),  CPM(7).  I4MMTL  ( 7 ) . 

6  WMIQF. TKN5IN(7> 


VARIABLES  AND  PARAMETERS  IN  COMMON  'PARAMS': 

GRAV  •  ACCELERATION  OF  GRAVITY,  SET  TO  32.  174  FT/(S*S)  IN  INITLZ 

PI  *  3.  1413927,  SET  IN  SUBR  INITLZ 

QTR  »  0  23.  USEFUL  CONSTANT  SET  IN  INITLZ 

RGAS  ■  UNIVERSAL  GAS  CONSTANT,  SET  TO  1343  FT-LBF/ (LBMOLE-R >  IN 
INITLZ 

SIGMA  ■  STEFAN-dOLTZMANN  CONSTANT  -  4  761E-13  BTU/IS-SQ  FT-DEG  R**4> 
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C  SOD 
C  THOU 
C  TOL 
C  £C 
C  EP 


»  ELEMENT  DIMENSION  »  V  3  FT 

*  1000,  USED  IN  CONVERSIONS  BETWEEN  SECONDS  AND  MILLISECONDS 
»  0. 00001,  USED  IN  CONVERSION  OF  REALS  TO  INTEGERS 
“  ENTRAIMENT  CONSTANT  FOR  COMBUSTION  ZONE  OF  FIRE  <N0  UNITS) 
-  ENTRAINMENT  CONSTANT  FOR  PLUME  ZONE  OF  FIRE  (NO  UNITS) 
COMMON/ PAR AMS/ SR AV,  PI,  QTR,  RCAS,  SIGMA,  SOD,  THOU,  TOL,  EC,  EP 


VARIABLES  AND  PARAMETERS  IN  COMMON  'RADTN' 


ALPC 

A8SCF 


SB 

QC 


FLAME  BASE  CENTER  EMITTANCE  (NO  UNITS) 

FLAME  ABSORPTION  COEFFICIENT  FOR  EACH  FIRE.  UNITS  (1/FT) 
MAXIMUM  30  VALUES,  ONE  PER  FIRE. 

■  8LACKB0DY  RADIATION  EMISSION  POWER  <  8TU/FT*FT*SEC  > 

“  AVERAGE  LEVEL  OF  RADIATION  REACHING  CABIN  SURFACES  IN  CONTACT 
WITH  THE  UPPER  ZONE  GAS  (SUBSCRIPT  -  2)  OR  THE  LOWER  ZONE  GAS 
(SUBSCRIPT  «1).  (BTU/(FT*FT*SEC) ) 

COMMON/ RADTN /ALPC,  A8SCFOO),  EB,  0C(2> 


STATS  IS  THE  ARRAY  CONTAINING  THE  STATISTICS  ON  THE 
GAS  DYNAMICS  EQUATIONS 


INTEGRATION  OF  THE 


DIMENSION  STATS( SO, 2) 
INTEGER  ECOFLG 
TOL-0. 00001 
NDXS  a  0 


SET  THE  MAIN  CLOCK,  ITIME,  TO  0  MILLISECONDS  AND  THE 
FLAME  SPREAD  SECONDARY  CLOCK,  ITIM2.  TO  0  MILLISECONDS 
ITIME  *  0 
ITIH2  »  0 

SUBR  RDCNTL  READS  PROGRAM  CONTROL  DATA 
CALL  RDCNTL 

SUBR  RDCMTY  READS  DATA  DESCRIBING  THE  CABIN  GEOMETRY 
CALL  RDGMTY 

SUBR  RDMTLS  READS  DATA  DESCRIBING  THE  CABIN  MATERIALS 
CALL  RDMTLS 

SUBR  INITLZ  INITIALIZES  VARIABLES  AND  CONSTANTS 
CALL  INITLZ 

SUBR  RDIGTN  READS  DATA  DESCRIBING  THE  IGNITION  SCENARIO 
CALL  RDIGTN 

SUBR  ECHO  PRINTS  SELECTED  INPUT  DATA  FOR  VERIFICATION 
CAUL  ECHO 

C 

C  IPR1  -  FLAO  FOR 
C  IPR2  -  FLAO  FOR 


OUTPUT  CONTROL,  PRINT’NC  OF  ATMOSPHERE  DATA 
OUTPUT  CONTROL,  PRINTING  OF  FLAME  SPREAD  DATA 
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c 

IPS  1-0 
IPR2-0 
C 

C  THIS  IS  THE  START  OF  THE  PRIMARY  LOOP  OF  THE  PROGRAM 

C  ITIM2  -  THE  TIME  IN  MILLISECONDS  AT  WHICH  THE  NEXT  PASS  THRU  THE 

C  FLAME  SPREAD  CALCULATIONS  IS  TO  BE  MADE 

C  ITSPRD  -  THE  TIME  INCREMENT  IN  MILLISECONDS  BETWEEN  FLAME  SPREAD 

C  CALCULATIONS 

C 

10  ITIM2-ITIM2+ITSPRD 
C 

Cl  -  SURFACE  INDEX  (  1-1  THRU  20  ARE  LINING  SURFS.  21  THRU  29 

C  ARE  SEAT  GROUPS) 

C  K  -  COUNTER  FOR  THE  NUMBER  OF  SEPARATE  FIRES  FOUND  ON  A  SURFACE 

C  KPR  -  SAVES  PREVIOUS  VALUE  OF  K  FOR  COMPARISON  LATER 

C  ISU  -  A  FLAG  TO  CONTROL  CALLS  TO  SUBR  RESET 

C  ISAVE  -  A  FLAG  TO  CONTROL  CALLS  TO  SUBR  SCAN  FOR  CONTINUED  SCANNING 

C  OF  SURFACES  FOR  FIRES 

C  IGNFIR  -  A  FLAG  TO  INDICATE  STATUS  OF  THE  IGNITION  SOURCE  FIRE 
C 

20  1-0 
K-0 
KPR— O 
ISW-0 
I SAVE-0 
IONFlR-0 

IF ( IBURN. EG.  1 )  IGNFIR— 1 
C 

C  SET  VARIABLES  WHICH  ACCUMULATE  TOTAL  RATES  OF  HEAT. SMOKE, AND  GAS 
C  RELEASE  AND  OXYGEN  CONSUMPTION 
C 

TDQ-O. 

TRSF-O. 

TOTVIT-O. 

DO  23  IC-l.NTXG 
23  TRGF <  IG >— O. 

C 

DO  29  IM— 1,  NMATLS 

29  TDQMTL(IM)  -  0. 

C 

C  INCREMENT  I  ->  PROCEED  TO  NEXT  SURFACE 
C 

30  I-I  +  l 
C 

C  IF  THERE  ARE  CURRENTLY  NO  FLAMING  ELEMENTS  ON  SURFACE  I,  SKIP  SPREAD 
C  CALCULATIONS  FOR  THIS  STEP 
C 

IF(NFE<  I  ).  LE.  0)  GO  TO  69 
C 

C  SUBR  SCAN  SEARCHES  SURFACE. I  FOR  A  GROUP  OF  ADJOINING  FLAMING 
C  ELEMENTS.  I.  E.  A  FIRE.  THIS  SUBR  WILL  CHANGE  VALUES  OF  ISAVE 
C  AND  K  THRU  COMMON  TO  CONTROL  THE  AMOUNT  OF  SEARCHING  DONE 
C 

40  CALL  SCAN! I) 

C 

C  IF  K-KPR  NO  NEW  FIRES  HAVE  BEEN  FOUND  DURING  THE  LAST  PASS  THRU  SCAN 
C  THEREFORE  SKIP  SPREAD  CALCULATIONS. 

C 

IF<K. EG. KPR)  GOTO  60 
C 
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C  SUBR  RATES  FINDS  THE  SPECIFIC  VALUES  GF  THE  MATERIALS  PROPERTIES  USING 
C  RADIATION  LEVELS  FOR  THE  FIRE  JUST  ISOLATED  BY  SUBR  SCAN.  VALUES  ARE 
C  SUPPLIED  TO  LATER  SUBROUTINES  THRU  COMMON 
C 

CALL  RATES  < I ) 

IF  I  >  LSN  THIS  SURFACE  IS  A  SEAT  GROUP  SURFACE  AND  CONTROL  PASSES  TO 
THE  SPREAD  CALCULATIONS  FOR  SEATS  AT  STMT  50 

IF < I.  GT  LSN)  GO  TO  50 

SUBR  COND  COMPUTES  THE  FLAME  SPREAD  TO  ADJACENT  ELEMENTS  ON  THE 
LINING  SURFACE  I. 

CALL  COND < I ) 

SUBR  FCON  COMPUTES  THE  FLAME  SPREAD  TO  ELEMENTS  ON  OTHER  SURFACES 
TOUCHED  BY  FIRE  FROM  SURFACE  I 

CALL  FCON(I) 

SUBR  PVOL  COMPUTES  THE  SPREAD  OF  SMOLDERING  REGIONS  ON  CABIN  LINING 
SURFACE  I 

CALL  PVOL ( I ) 

THIS  ENDS  CONSIDERATION  OF  SPREAD  CAUSED  BY  FIRE  K,  SO  SET  KPR-K. 

KPR-K 
GO  TO  55 

SUBR  CONDS  COMPUTES  THE  FLAME  SPREAD  TO  ADJACENT  ELEMENTS  ON  THE  SEAT 
GROUP  GIVEN  BY  I 

50  CALL  CONDS ( I ) 

SUBR  FCONS  COMPUTES  THE  FLAME  SPREAD  TO  ELEMENTS  ON  OTHER  SURFACES 
DUE  TO  FIRE  FROM  THE  SEAT  GROUP  GIVEN  BY  I. 

CALL  FCONS  < I ) 

SUBR  PVOLS  COMPUTES  THE  SPREAD  OF  SMOLDERING  REGIONS  FROM  THE  SEAT 
GROUP  GIVEN  BY  I 

CALL  PVOLS ( I ) 

THIS  ENDS  CONSIDERATION  OF  SPREAD  CAUSED  BY  FIRE  K,  SO  SET  KPR-K. 

KPR-K 

SUBR  TEST  HAS  3  FUNCTIONS;  (1)  DETECT  ANY  FLAMING  ELEMENTS  DUE  TO  BURN 
OUT  NOW  AND  SET  THEM  TO  THE  CHARRED  STATE.  (2)  UPDATE  THE  "FRACTION 
CONSUMED"  VALUE.  ITFPC.  FOR  ALL  ELEMENTS  CONTINUING  TO  BURN.  AND 
(3)  COMPUTE  THE  TOTAL  RATES  OF  HEAT.  SMOKE.  AND  GAS  RELEASE  AND  OXYGEN 
CONSUMPTION 

55  CALL  TEST ( I ) 

IF  ISAVE  IS  NOT  ZERO  THERE  ARE  ADDITIONAL  FLAMING  ELMNTS  ON  SURFACE  I, 
SO  RETURN  TO  SUBR  SCAN  TO  ORGANIZE  THEM 
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60  IF(  ISAVE.  NE.  0>  GO  TO  40 

TEST  TO  FIND  IF  ALL  SURFACES  HAVE  BEEN  SEARCHED,  IF  NOT  RETURN  TO  TOP 
OF  THE  LOOP 

65  IF ( I. LT  NS)  SO  TO  30 

SINCE  ALL  SEARCHING  FOR  FIRES  IS  NOW  OVER  RECORD  THE  TOTAL  NUMBER  OF 
SEPARATE  FIRES  (NOT  COUNTING  ANY  NEW  ONES  STARTED  BY  SUBR  COND.  ETC) 

IN  'NFIRES ' 

67  NFIRES-K 

SUBR  ELEM  HAS  4  FUNCTIONS  (1>  UPDATE  THE  "FRACTION  CONSUMED" 

VALUE,  ITFPC,  FOR  SMOLDERING  (STATE  2)  ELMNTS,  (2)  DETECT  ANY  SMOL¬ 
DERING  ELMNTS  DUE  TO  TRANSITION  TO  STATE  4  OR  7  AND  SET  THEM  SO,  (3) 
RESET  STATE  3  ELMNTS  TO  STATE  1  IF  REQUIRED,  (4)  UPDATE  “ELAPSED  TIME 
IN  STATE”  VALUE-  ITX,  FOR  ELMNTS  IN  STATES  2. 3- AND  6. 

70  CALL  ELEM 

IF  SUBR  ELEM  IS  CALLED  SUBR  RESET  MUST  BE  USED  LATER,  SO  SET  ISW-1 
ISW-1 

SUBR  AFP  COUNTS  THE  NUMBER  OF  ELMNTS  NOW  IN  THE  FLAMING,  SMOLDERING, 
AND  CHARRED  STATES  AND  THE  TOTAL  AREA  OF  EACH  MATERIAL  TYPE 
NOW  IN  EACH  OF  THESE  STATES 

CALL  AFP 

SUBR  ATMOS  IS  THE  COMPLETE  GAS  DYNAMICS  CALCULATION,  GIVING  UPDATED 
VALUES  OF  CABIN  ATMOSPHERE  TEMPERATURE,  COMPOSITION,  SMOKE  CONCEN¬ 
TRATION,  ETC.  ATMOS  IS  CALLED  AT  EACH  SMALL  STEP,  IDELT,  OF  THE  RUN. 

90  CALL  ATMOS (STATS.  NDXS) 

SUBR  SRFTMP  UPDATES  THE  SURFACE  TEMPERATURES  OF  THE  CABIN  MATERIALS 
CALL  SRFTMP 

INCREMENT  THE  MAIN  CLOCK,  ITIME,  BY  THE  SMALL  TIME  STEP 
ITIME  -  ITIME  ♦  IDELT 

IF  THIS  IS  THE  FIRST  PASS  ALWAYS  CALL  SUBR  OUTPUT  (PRIMARILY  TO 
VERIFY  INITIAL  CONDITIONS) 

IF (  ITIME  .  EQ.  IDELT  )  CALL  OUTPUT ( 0,  0,  STATS, NDXS ) 

SET  THE  OUTPUT  CONTROL  FLAGS  USING  IPEMS,  IPSPR,  IPAUX,  AND  ITIME. 

IPR1-M0D( ITIME, IPEMS) 

IPR2-M0D( ITIME, IPSPR) 

IPR3-M0D( ITIME, IPAUX) 

SUBR  OUTPUT  WRITES  ALL  FLAME  SPREAD  AND  CABIN  ATMOSPHERE  QUANTITIES  TO 
FORTRAN  UNIT  6  AT  THE  CURRENT  TIME.  IPR1  AND  IPR2  CONTROL  WHAT  INFO 
IS  WRITTEN 

IPR1-0  ->  WRITE  CABIN  ATMOS  VARIABLES,  OTHERWISE  SKIP 
IPR2-0  ->  WRITE  FLAME  SPREAD  VARIABLES,  OTHERWISE  SKIP 
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c 

90  CALL  0UTPUT< IPR1, IPH2, STATS, NDXS) 

SUBR  AUXOUT  WRITES  SELECTED  VARIABLES  TO  FORTRAN  UNIT  8  FOR  LATER  USE, 
SUCH  AS  PLOTTING.  CALLS  TO  AUXOUT  ARE  CONTROLLED  BY  THE  FLAG  IPR3  SET 
UPSTREAM. 

IF<  IPR3  EG.  0  )  CALL  AUXOUT 
TEST  IF  THE  STOPPING  TIME  HAS  BEEN  REACHED,  IF  SO  STOP. 

IF<  ITIME.  GE.  ITFIN)  GO  TO  1000 
IF  ISW  IS  NOT  -  1  SKIP  THE  CALL  TO  SUBR  RESET 
IF ( ISW.  NE.  1 )  GO  TO  100 

SUBR  RESET  SETS  THE  "PAST-  ELMNT  STATE  TO  THE  "PRESENT"  STATE  FOR  ALL 
ELMNTS  TO  PREPARE  FOR  THE  NEXT  ROUND  OF  FLAME  SPREAD  COMPUTATIONS 

CALL  RESET 
ISW-0 

100  CONTINUE 

SUBR  RAMP  COMPUTES  THE  PRODUCT  RELEASE  RATES  FOR  THE  IGNITION  SOURCE 
FIRE  DURING  THE  RAMP-IN  PERIOD.  DURING  THIS  PERIOD  FLAME  SPREAD 
CALCS  MUST  BE  DONE  AT  EACH  SMALL  TIME  STEP. 

ITSPRD  -  IRATIO  *  IDELT 

DELTSP  -  ITSPRD  /  THOU 

IF  (ITIME  .  GT.  IRAMPT)  GO  TO  120 

ITSPRD  *  IDELT 

DELTSP  -  ITSPRD  /  THOU 

CALL  RAMP 

IF (  ITIME  .  GE.  ITIM2  )  GO  TO  10 
GO  TO  20 

TEST  TO  SEE  IF  IT  IS  NOW  TIME  TO  MAKE  THE  FLAME  SPREAD  CALCULATIONS, 

IF  SO  TRANSFER  TO  THE  TOP  OF  THE  SPREAD  LOOP 

120  IF (  ITIME  .  OE.  ITIM2  )  GO  TO  10 

FLAME  SPREAD  CALCULATIONS  ARE  NOT  SCHEDULED,  SO  RETURN  TO  THE  CABIN 
ATMOSPHERE  SECTION 

GO  TO  80 

WRITE  THE  COMPLETION  MESSAGE  AND  STOP 
1000  WRITE( 6, 6) 

6  FORMAT (1H1//10X. 21H**N0RMAL  COMPLETION**) 

STOP 

END 
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SUBROUTINE  RAMP 


OBJECTIVE 

(1)  THIS  SUBR  COMPUTES  THE  RATES  OF  HEAT.  SMOKE.  ANO  CAS  RELEASE  AND 
OXYCEN  CONSUMPTION  FOR  THE  IGNITION  SOURCE  FIRE  DURING  THE 
RAMP-IN  PERIOD  <  TIME  -  0  THRU  TIME  -  IRAMPT  ) 


COMMON/CNTRL/DELTAT. DELTSP, ECOFLG. IDELT, IDENT(20). IDTPRV, IPEMS. 

1  IPSPR.  IPAUX.  I RAT IO>  ISAVE.  ISCALE.  ITFIN.  ITIME.  ITIM2. 

2  ITSPRD. NP ASS. TFINAL,  IDBUG1. EPSLN. MAXITR.  MAXCUT, 

3  JC8SKP 

COMMON/MATLS/TABX <  18.  7.  6).  TABY<18.  7.  6).  NTXG.  FOX  I.  RADTAB  <  7 ) .  RADI. 

1  FOX ( 7 ) . NMATLS, DG I . DQM ( 7 ) . G AM I . GTAB (7) , ITF(20). IRAMPT 

2  ITFC ( 20 ) . ITFCS<7). ITFS<7>, ITP(20>. ITPC(20). ITPCS(7). 

3  ITPE ( 20 ) .  ITPES<  7) ,  ITPS(7>. QCI, GP<7) , GTAB <7) . RHOI. 

4  RHOM< 7 ) .  RSI. RTAB(7), RTGI (10). UTAB<7). CNDCTY(7). XMUI. 

5  XMFI,  TKNS  ( 7 ) .  TSL  <  30.  2.  4).  TSP<2.  2.  4 ) .  CPM(7 ) .  WMMTL  <7 ) . 

6  HMIOF. TKNSIN(7) 

FCTR  CONVERTS  THE  OLD  RATE  VALUES  FROM  THE  LAST  TIME  STEP  TO  THE 
NEW  VALUES  FOR  THE  UPCOMINO  TIME  STEP 

FCTR  -  FLOAT (  IDELT  )  /  FLOAT (  ITIME  )  ♦  1.  0 

C  • 

DQI  -  DO I  •  FCTR 
RSI  -  RSI  •  FCTR 
DO  10  IG  -  1.  NTXG 
10  RTGI ( IG)  -  RTGI < IG)  *  FCTR 
FOX  I  -  FOX  I  *  FCTR 
C 

RETURN 

C 

END 
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SUBROUTINE  RDGMT Y 


C - - 

C  OBJECTIVE 

C  (1)  READ  IN  VARIABLES  DESCRIBING  THE  CABIN  GEOMETRY  AND  INITIALIZE 
C  SEVERAL  ARRAYS  OF  GEOMETRIC  INFORMATION. 

C  COMMENTS 

C  (2)  SOME  ERROR  CHECKING  OF  THE  INPUT  IS  DONE  WITH  SUBR  ERROR. 

C  (3)  INPUT  DATA  CARD  TYPES  AS  IDENTIFIED  BY  THE  DACFIR3  USER'S  GUIDE 
C  ARE  SHOWN  WITH  THE  CORRESPONDING  READ  STMTS. 

C  SEE  USER'S  GUIDE  AND/OR  COMMON  COMMENTS  FOR  DEFINITION  OF  VRBLS. 

C - 


COMMON/CNTRL/DELTAT,  DELTSP,  ECOFLG,  IDELT,  IDENT(20>.  IDTPRV,  IPEMS. 

1  '  IPSPR,  IPAUX.  IRATIO,  ISAVE,  ISCALE,  ITFIN,  ITIME,  ITIM2, 

2  ITSPRD.  NP ASS.  TF INAL.  IDBUG1.  EPSLN.  MAXITR.  MAXCUT. 

3  JCBSKP 

COMMON /FI  RES/ AFM<  7 ) ,  ASM<7>.  ISTATE( 120,  IS).  ISTATS<9,  16.  22), 

1  IWORDI 120. 15). I WORDS < ?. 16, 22). NFLM(7), NPYR<7) , 

2  RGS < 10, 7), RSS<7>, TOTGASt 10).  TOTSEM,  TRCFt 10), 

3  TRGS< 10), TRSF, TRSS. NCE(30>. VITNR,  TOTVIT,  RADFIR ( 30 ) , 

4  ACM  <  7 ) , AF  <  30 ) , AF I , AEXP. COMB (30), DQK. FLML ( 30 ) , FSN1 , 

3  FSN2, FSN3. GAMMA (30),  IBURN,  IFI600),  IGMNI,  IGMNJ.  IGMXI. 

6  IGMXJ.  IGNFIR,  ICNIJC2,  100).  IGSN,  ISFIREOO),  IVMAX(30). 

7  I VMIN  <  30 ) ,  IVMN,  IVMX,  IXFIRE.  I  ZONE (30 > , JVMAX ( 30 ) , 

8  JVM  IN  ( 30 ) ,  JVMN,  JVMX,  K,  NFE(30),  NFIRES.  NI JC.  NI JSQ. 

9  NPE ( 30 ) , NSFL ( 7 ) . 0MEGA(30). PDH, PIGN.  RF(20.  4).  RFS(7.  4), 

1  RFWS. RGF( 10. 7) , RGFK ( 10  > , RH0Z(30) . RSF ( 7 ) ,  RSFK,  TDQ, 

2  TBURNI, UZ ( 30) > YZ(30>. ZB(30), RHOEFG,  CHIEFC( 11 ). 

3  FLOWIN, FLWOUT,  TEFG,  I FR VNT . GENR AT (11), TDGMTL ( 7 ) , 

4  TP(7),TPC<7> 

COMMON/GASES/CHIL( 11,3), CHIU( 1 1,  3) , CP,  NGAS ( 1 1 ),  NSPCS.  PAMB.  PF(S), 

1  RHOAM,  RHOL ( 5  > ,  RHOU  <  3 ) , TAM,  TL ( 3 ) , TU( 3 ) . VOLL ( 3 > , 

2  VOLU <  3 ) ,  ZD ( 3 ) .  XTHEN( 120) , WMOLEC ( 1 1 > . TWO( 101 ) , 

3  JCOR ( 120 ) 

COMMON/GMTRY/IMATL(20). IMATS( 7 ) , IMTLP ( 4 ) , IMAX(30), IMIN(30>, 

1  IRAY (116),  IRAYS(22>. JMAX(30), JMIN(30), LSN.  MAXELI.  NS, 

2  CH.  CL (4),  CW,  DWS.  HSTS,  IARX(40-  13),  IARY(40,  12).  ICLL. 

3  ICLR. IEND. TFIRL, IFIRR, ILSTL. ILSTR. IONE(9). 

4  ISSWLK9,  10),  ISSWLJ(9,  10),  ISSWRK9,  10),  ISSWRJ<9,  10), 

3  ISWSL <13,  8 ) ,  ISWSR ( 1 3,  8 > ,  1ST ART,  NPROJ,  IPJUL.  IPJLL, 

6  IPJUR.  IPJLR,  JEND,  JONE  ( 9 ) ,  JSTART,  NJS,  NSG,  NV,  SGWD(9>, 

7  SL, SWD (20 ) , VN<  20, 3) . VENTH( 24 ) , VENTW( 24 > , VENTT ( 24 > , 

8  XMN<  30 > .  XMX  (30) ,  XC0R(9),  YC0R(9),  ZOO),  SSGWD,  TVSG, 

9  HT1,  HT2,  HT3.  HT 4(10).  NS5TS.  SLSW.  SX  ( 30 ) .  SZ  ( 30 ) , 

1  CNCTNS ( 24 ) , NCOMPS.  IFRCMP,  FL0W(24>,  INTO ( 24 ) . VTOTAL ( 4 ) . 

2  FHMIN 

COMMON/MATLS/TABX( 18, 7, 6). TABY( 18. 7, 6). NTXG. FOX  I , RADTAB ( 7 ) . RADI, 

1  FOX (7). NMATLS. DQI, DOM ( 7 ) , GAMI, GTAB ( 7 ) , ITF(20), IRAMPT, 

2  ITFC (20 ) ,  ITFCS<  7) .  ITFS(7),  ITP<20).  ITPC(20>.  ITPCS(7), 

3  ITPE  <  20 ) ,  ITPES ( 7) ,  ITPS(7), GCI, GP(7), QTAB ( 7 ) , RHOI, 

4  RHOM ( 7 ) ,  RSI.  RTAB(7),  RTG I ( 10).  UTAB(7>,  CNDCTY(7) ,  XMUI- 

3  XMFI,  TKNS  ( 7 ) .  TSL  (  30,  2,  4),  TSP(2,  2,  4),  CPM(7),  WMMTL  ( 7  ) , 

6  WM I GF,  TKNS I N ( 7  > 

COMMON/PARAMS/GRAV, PI, GTR, ROAS, SIGMA,  SOD. THOU, TOL,  EC,  EP 
COMMON/RADTN/ALPC,  ABSCFOO),  EB,  0C(2) 


c 

C  READ  CARD  TYPE  4  -  CABIN  MAX  CEILING  HEIGHT,  WIDTH  AT  FLOOR 
C 

READ (3, 4)  CH,  CW 
4  FORMAT ( 8F 1 0.  1 ) 


C 

C  READ  CARD  TYPE  3  -  NUMBER  OF  COMPARTMENTS  (  MAX  VALUE  ■  4  >.  AND 


uou  ooo  uou  uuu  uuuuu 


:  compartment  numser  for  interior  fires 

c 

READO.  3)  NCOMPS,  IFRCMP 
3  FORMAT  ( 1613) 

READ  CARD  TYPE  6  -  COMPARTMENT  LENGTHS 

READO, 6)  <CL(I>.  1-1, NCOMPS) 

6  FORMAT <SF 10. 1 ) 

READ  CARD  TYPE  7  -  NO.  LINING  SURFACES.  NO  SEAT  GROUPS,  CEILING  DEFN 

READO,  7)  LSN,  NSG,  ICLL,  ICLR 

7  FORMAT ( 1613) 

TEST  TO  FIND  IF  MORE  THAN  20  LINING  SURFS  WERE  SPECIFIED 
NERR-1 

IF ( LSN.  LE.  20) GO  TO  101 

100  CALL  ERROR (NERR) 

STOP 

101  NERR "2 

TEST  TO  FIND  IF  MORE  THAN  9  SEAT  GROUPS  WERE  SPECIFIED 

IF  (NSG.  GT.  9)  GO  TO  100 
NERR-3 

TEST  TO  FIND  IF  THE  NUMBER  OF  THE  RIGHTMOST  CEILING  SURFACE  IS, 
INCORRECTLY,  GREATER  THAN  THE  NUMBER  GIVEN  THE  LEFTMOST  SURFACE. 

RIGHT  AND  LEFT  ARE  DEFINED  BY  A  VIEW  LODKINC  AFT 

IF( ICLL.  LE.  ICLR )G0  TO  100 
C 

C  NS-LSN+NG  :  TOTAL  NO  OF  SURFS  -  NO  LINING  SURFS  *  NO  SEAT  GROUPS 
C  NSSTS  ■  7  :  NUMBER  OF  SEAT  SURFACES  -  7  (ALWAYS) 

C  NJS-22  :  MAXIMUM  VALUE  OF  J  INDEX  FOR  SEAT  ELEMENTS  IS  22  (ALWAYS) 
C  SQD-O.  3  :  ELEMENTS' ARE  ALWAYS  0.  3X0.  3  FT  SQUARE 

C  HSTS-4. 3  .  TOTAL  HEIGHT  OF  SEATS  IS  ALWAYS  4  3  FT. 

C 

NS-LSN+NSG 
NSSTS-7 
NJS-22 
SQD-O.  3 
HSTS-4. 3 
SX<  t)  -  0. 

SZ(1>  -  0. 

C 

C  THE  FOLLOWING  DO-LOOP  READS  THE  LINING  SURFACE  DIMENSION.  Z  DISPLACE- 
C  MENT,  NORMAL  VECTOR,  AND  MATERIAL  ID  FROM  CARD  TYPE  B.  THEN  MAX  AND 
C  MIN  VALUES  OF  ELMNT  I  AND  J  INDICES  ARE  COMPUTED  FOR  EACH  SURF  AND 
C  VRBL  IRAY  IS  INITIALIZED 
C 

IJ  -  0 

DO  103  I-l.LSN 

READO,  8 )  SWD  ( I),  Z(  I),  (  VN(  I ,  J ) .  J-l ,  3) ,  I MATL  <  I  ) 

8  FORMATOFIO.  1,  IS) 

JMIN( 1 >»l 

JMAX ( I ) -1 5 
IX-I J*1 

IJ-IJ+2.  0*SWD ( I ) +TOL 
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oo  u  ooo  uouuuu  uu  u  u  ouuo  ouo 


1MIN( I >-IX 
IMAX(I)-IJ 
II-I 

00  102  JL-IX, 1J 

102  IRAY(JL)-II 

c 

K  ■  I  +  1 

IF  (  VN (I<1)  .  NE.  0.  )  SO  TO  1001 

SX (K )  -  SX<1>  f  VN (1*3)  *  SWD(I> 

SZ(K)  -  SZ(I) 

00  TO  103 
C 

1001  SX (K >  ■  SX ( I ) 

SZ(K)  •  SZ<1)  -  VN(M)  •  SWD(I) 

c 

103  CONTINUE 
C 

SXCLSN+l)  »  0. 

SZ  <  LSN+ 1 )  -  0. 

TEST  TO  FIND  IF  MAX  ALLOWABLE  VALUE  OF  LINING  SURF  I  INDEX  IS  EXCEEDED 
NERR-4 

IF< IMAX (LSN) .  ST.  120)60  TO  100 
NERR-9 

TEST  TO  FIND  IF  MAX  ALLOWABLE  NUMBER  OF  ELMNTS  (600)  IS  EXCEEDED. 

IF((IMAX<1)*JMAX(D)  ST  600)00  TO  lOO 
MAXELI- IMAX (LSN) 

DO-LOOP  TO  READ  CARD(S)  TYPE  9  :  SEAT  GROUP  WIDTHS  AND  POSITIONS. 

THEN  COMPUTE  I  AND  J  INDICES  OF  THE  FLOOR  ELMNTS  OVER  WHICH  THE 
REFERENCE  CORNER  OF  THE  SEAT  CROUP  IS  LOCATED.  ALSO  THE  Z  DISPLACE¬ 
MENT  (HEIGHT  ABOVE  FLOOR)  OF  ALL  SEATS  IS  1.0  FT. 

DO  104  IS-l.NSQ 

READ (3.9)  SCWD(IS).  XCOR ( IS) .  YCOR ( IS ) 

9  F0RMATT8F10. 1 ) 

IT-LSN+IS 
Z(IT)-1.  0 

I0NE(IS)«2.  0*XC0R( IS)+TOL 
JONE (IS) "2.  0*YC0R(IS)+T0L 

104  CONTINUE 

READ  CARD  TYPE  10:  SEAT  SURFACE  MATERIAL  ID  NUMBERS,  EACH  SEAT  SURFACE 
CAN  BE  A  SEPARATE  MATERIAL  IF  DESIRED. 

READ (3. 10)  (IMATS(I). 1-1.7) 

10  FORMAT ( 20 12) 

READ  CARD  TYPE  11  -  SEAT  TO  SIDEWALL  FIRE  SPREAD  DATA.  PARTITION 
MATERIAL  CODES 

READO.  11)  DWS.  RFWS.  (IMTLP(I).  I-l.NCOMPS) 

11  F0RMAT(2F10.  1. 413) 

READ  CARD  TYPE  12  -  NUMBER  OF  VENTS  (  MAX  VALUE  -  24  ) 

READ (3. 12)  NV 

12  FORMAT (1613) 


-  -•<> n*  >  y  -  rftftfi' 


ouoo  o  uoo 


IF  <  NV  EG.  0  )  «0  TO  106 

READ  CARD<S>  TYPE  13  -  CONNECTED  COMPARTMENTS.  DIMENSIONS.  FLOW  RATES 
FLOW  DIRECTION 

DO  109  1*1. NV 

READ (9.  13)  II.  12.  VENTT(I).  VENTH(I).  VENTW(I).  FLOW(I).  INTO(I) 
13  FORMAT (21 9.  4F 10.  1.  19) 

CNCTNS(I)  -  II  *  10  ♦  12 
109  CONTINUE 

106  CONTINUE 

REMAINING  STATEMENTS  INITIALIZE  THE  ARRAY  IRAYS 


IX«1 

DO  49  J-l,  4 

49 

IRAYS (  J  > "  I X 
IX-IX+1 

DO  90  J-9.  • 

90 

IRAYS < JJ-IX 
IX-IX-H 

DO  99  J-<>.  11 

99 

IRAYS( J)«IX 
IRAYS (12) -4 
IX-IX+2 

DO  60  J-13.  18 

60 

1RAYS( JJ-IX 
IX-IX+1 

DO  69  J-l*. 21 

69 

IRAYS  <  J )  —  I X 
IRA YS<22)-7 

190 

RETURN 

END 
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SUBROUTINE  RDMTLS 


OBJECTIVE ( S) 

(1)  READ  IN  ALL  DATA  DESCRIBING  THE  CABIN  LINING  SURFACES  AND  SEAT 
MATERIALS. 

COMMENTS 

<t)  TREATMENT  OF  UNUSED  VARIABLES  IN  ARRAY  OF  GAS  SPECIE  NAMES  MAY 
BE  MACHINE  DEPENDENT. 


COMMON/CNTRL/DELTAT,  DELTSP.  ECOFLG,  IDELT,  IDENT(20),  IDTPRV.  IPEMS. 

1  IPSPR. 1PAUX, IRATIQ.  ISAVE, ISCALE, ITFIN. ITIME, ITIM2. 

2  ITSPRD. NPASS. TFINAL,  IDBUG1 . EPSLN, MAX ITR.  MAXCUT, 

3  JCBSKP 

COMMON/FIRES/AFM ( 7 ) ,  ASM(7)i  ISTATEf 120,  15),  ISTATS<9,  16, 22). 

1  I WORD ( 120,  19).  I WORDS <  9,  16, 22> , NFLM( 7 ) - NPYR < 7 ) , 

2  RGS ( 10, 7). RSS(7>, TOTGAS( 10), TQTSEM,  TRGF( 10). 

3  TRGS(  10),  TRSF,  TRSS,  NCE<30> . VITNR.  TOTVIT,  RADFIROO), 

4  ACM ( 7 > , AF ( 30 > , AF I , AEXP, COMB (30) • DQK,  FLML ( 30 ) . FSN 1 , 

9  FSN2, FSN3. GAMMA (30), I BURN, IF(600>, ICMNI. ICMNJ, IGMXI, 

6  IGMXJ, IGNFIR, IGNIJ<2, 100). IGSN, ISFIRE(30). IVMAX(30). 

7  IVMINOO).  IVMN.  I VMX,  IXFIRE,  I  ZONE ( 30 > . JVMAX ( 30 > . 

8  JVM I N ( 30 ) , JVMN.  JVMX,  K,  NFE ( 30 ) .  NFIRES,  NI JC ,  NIJSG, 

9  NPE ( 30 ) . NSFL ( 7 ) , OMEGA ( 30 ) , PDH,  PIGN,  RF(20.  4),  RFS<7,  4), 

1  RFWS, R«F< 10, 7), RGFK< 10). RH0Z(30).  RSF<7),  RSFK,  TDQ. 

2  TBURN1 , UZ ( 30 ) , YZ ( 30) , ZB ( 30 ) .  RHOEFC.  CHIEFG (11). 

3  FLOWIN,  FLWOUT. TEFG,  IFRVNT , GENRAT (11), TDGMTL ( 7 ) , 

4  TP ( 7 ) . TPC ( 7 ) 

COMMON /GASES /CHIL (11.  9).  CHIU( 11,  9).  CP,  NGAS (11),  NSPCS.  PAMB,  PF(9), 

1  RHOAM, RHOL ( 9 ) . RHOU ( 9 ) ,  TAM,  TL(9)»  TU ( 9 ) ,  VOLL ( 9 ) , 

2  VOLUO).  ZD(9>,  XTHEN ( 1 20 > ,  WMQLEC  (11).  TWO (101), 

3  JCOR (120) 

C0MM0N/CMTRY/IMATL(20>,  IMATS(7>,  IMTLP(4),  I MAX ( 30) ,  IMIN ( 30 ) , 

1  I  RAY  (  116),  IRAY8(22) .  JMAX  (30 ) ,  JMINOO) .  LSN.  MAXELI.  NS. 

2  CH,  CL  ( 4 ) ,  CW,  DWS.  HSTS,  IARX(40.  19).  IARY(40.  12).  ICLL. 

3  ICLR, IEND.1FIRL, IFIRR, ILSTL. ILSTR, I0NE(9) . 

4  ISSWLI (9, 10), ISSWL J ( 9, 10), ISSURI (9, 10), !SSWRJ(9. 10), 

9  ISWSL( 19. 8).  ISWSRI 19. 8),  ISTART. NPROJ,  IPJUL,  IPJLL. 

6  IP  JUR.  IPJLR.  JEND.  JONE  ( 9  > ,  JSTART ,  NJS.  NSC,  NV,  SGWD(9), 

7  8L. SWD ( 20  > , VN ( 20, 3 ) . VENTH ( 24 ) .  VENTW ( 24 ) ,  VENTT ( 24 ) . 

8  XMN  ( 30  > ,  XMX  (30) .  XCOR  ( 9  > ,  YCOR  ( 9 ) .  ZOO),  SSCWD.  TVSG. 

9  HT1,  HT2.  HT3.  HT4(  10).  NSSTS.  SLSW.  SX  ( 30) ,  SZ  ( 30 ) . 

1  CNCTNS ( 24 ) , NCGMPS.  IFRCMP. FL0W(24>,  INT0(24>.  VT0TAL(4>, 

2  FHMIN 

COMMON/MATLS/TABX ( 18. 7, 6), TABY ( 18. 7, 6).  NTXO.  FOX  I ,  RADTAB ( 7 ) ,  RADI , 

1  FOX ( 7 ) , NMATLS. DOI. D0M(7>, GAMI, 0TAB(7), ITFC20), IRAMPT, 

2  ITFC ( 20 ) , ITFCS ( 7 ) . ITFS(7). ITP(20>. ITPC(20>, ITPCS(7>, 

3  ITPE ( 20 ) >  ITPES ( 7 > »  ITPS(7>, GCI , 0P(7) . QTAB ( 7) .  RHOI, 

4  RHOM ( 7 ) ,  RSI. RTAB(7), RTGI ( 10), UTAB(7).  CNDCTY(7),  XMUI, 

9  XMF I .  TANS  ( 7 ) ,  TSL  <  30,  2,  4),  TSP(2.  2,  4 ) ,  CPM  ( 7 ) ,  WMMTL  ( 7) , 

6  WMIGF. TKNSIN(7) 

COMMON/ PAR AMS/OR AV, P I ,  GTR,  RQAS.  SIGMA,  SOD,  THOU.  TOL.  EC.  EP 
COMMON/RADTN/ALPC.  ABSCFOO).  EB.  0C(2) 

DATA  IBLNK/4H  / 

READ  CARD  TYPE  14  -  NUMBER  OF  CABIN  MATERIALS,  NUMBER  OF  TRACE  GASES 


READO.  14)  NMATLS.  NTXC 
FORMAT ( 161 9 > 


A  -  2 1 


non  nnn  nnn  non  non  nnnn  non  non  n  n 


TOTAL  NUMBER  OF  GAS  SPECIES  <  INCLUDING  SMOKE  )  IS  6  *  NTXG 

NSPCS  «  6  +  NTXG 

IF <  NTXG  EG.  0  )  GO  TO  1001 

READ  CARD  TYPE  IS  -  TRACE  GAS  IDENTIFICATION  DATA 

DO  100  I0“1 ,  NTXG 
READ <3.  IS)  NGS,  FMVI 

15  FORMAT (  A4.  6X.  F10.  0  ) 

NCAStS  +  IG)  -  NGS 
UMOLEC O  ♦  IG>  »  FMU 

100  CONTINUE 

FIRST  FIVE  SPECIES  ARE  ASSUMED  TO  BE  NS,  08,  'FUEL',  C08,  AND  H20 

1001  NCAS(l)  -  'N2 ' 

UMOLEC(l)  *  88. 

NGAS ( 2 >  -  '02' 

UMOLEC  <  2 )  -  32. 

NGAS (3)  -  'FUEL' 

UMOLEC (3)  -  999. 

NGAS  ( 4 )  »  'C02  ' 

UMOLEC  (4)  a  44. 

NGAS ( 3 )  «  'H20  ' 

UMOLEC (3)  -  18. 

NGAS (NSPCS)  *  'SMOK' 

UMOLEC < NSPCS )  a  999. 

READ  CARD  TYPE  16  -  HEAT  OF  COMBUSTION,  STOICHIOMETRIC  RATIO. 

FUEL  VAPOR  CHARACTERISTICS,  AND  RADIATED  FRACTION 

DO  101  Ma 1 ,  NMATLS 

101  READO.  16)  QTAB<M>,  GTAB(M),  UMMTL ( M ) ,  RTAB(M),  UT AB < M ) ,  RADTAB(M) 

16  F0RMAT(8F10. 1) 

READ  CARD  TYPE  17  -  SMLDRG  THRESHOLD  FLUX  LEVELS 

READO,  17)  < OP  < M ) ,  Mai,  NMATLS) 

17  FORMAT  <  BF10.  1) 

READ  CARD  TYPE  18.  TRANSITION  TIME(S)  TO  SMOLDERING  FOR  EACH  MATERIAL 

READO,  18)  (TP(M),  Mai,  NMATLS) 

18  FORMAT ( 8F10.  1) 

READ  CARD  TYPE  19,  TRANSITION  TIME(S)  SMLDRG-TQ— CHARRED  FOR  EACH  MATL 

READO.  19)  (TPC(M).M«1, NMATLS) 

19  FORMAT ( 8F10. 1 ) 

READ  CARD  TYPE  20.  SMOKE  PRODUCTION  RATE ( S )  FOR  SMLDRG  MATERIAL (S) 

READO.  80)  (RSS(M).  Mai,  NMATLS) 

SO  F0RMATI8F10. 1) 

DO  103  IG»1 , NTXG 

READ  CARD  <  6  >  TYPE  31.  QA6  PRDCTN  RATES  IN  SMLDRG  STATE  FOR  EACH  MATL 

READO.  81 )  ( R0S(  10.  M).  Mai,  NMATLS) 

21  FORMAT (8F 10.  1 ) 


A  —  2  2 


o  n  n 


CONVERT  GAS  PRDCTN  RATES  FROM  MICROLBM/ < FT*FT*SEC >  TO  LBM/ ( FT*FT#SEC ) 

DO  102  M— 1, NMATLS 

RCS< 15. M)-RGS( IS.  M>*1  E-6 

102  CONTINUE 

103  CONTINUE 

C  THE  NEXT  FOUR  STMTS  READ  THE  TABLES  OF  FLAMINC  STATE  PROPERTIES. 

C  EACH  TABLE  CONSISTS  OF  SIX  PAIRS  OF  (RADIATION  LEVEL.  PROPERTY  VALUE) 
C  AND  OCCUPIES  ONE  RECORD  (CARD).  RADIATION  LEVELS  SHOULD  BE  IN 
C  ASCENDING  ORDER.  TABLES  FOR  A  GIVEN  PROPERTY  ARE  READ  FOR  ALL  MATLS 
C  BEFORE  GOING  ON  TO  THE  NEXT  PROPERTY.  THESE  ARE  CARD  TYPES  22  THRU  34 
C 

IEND-NTXG+8 

DO  104  NO-1. I END  _ 

READ ( 9. 22)  ( (TABX (NO. M.  N) . TABY(NO. M, N) .  N-t . 6 > . M-l. NMATLS) 

22  FORMAT  ( 6  ( F9.  1 .  F8.  1 )  > 

104  CONTINUE 

C  CONVERT  ALL  CAS  PRDCTN  RATES  FROM  MICROLBM/ (FT*FT*S>  TO  LBM/ ( FT*FT*S ) 
C 

DO  117  NO-9. I END 
DO  117  M-l,  NMATLS 
DO  116  N-1,6 

116  TABY (NO. M,  N)-TABY(NO,  M. N>*1.  E-6 

117  CONTINUE 

C  READ  CARD  TYPE  39  -  BULK  THERMAL  PROPERTIES  OF  MATERIALS.  INSULATION 
C 

DO  190  M-l, NMATLS 

190  READ(9.  40)  CPM(M),  RHOM(M),  TKNS(M),  CNDCTY(M).  TKNSIN(M) 

40  FORMAT  ( 9F 1 0.  1 ) 

C  READ  CARO  TYPE  36  -  AMBIENT  TEMPERATURE  AND  PRESSURE 
C 

READ (9. 41)  TAM,  PAMB 

41  FORMAT ( 8F 1 0.  1 ) 

C  THE  NEXT  3  STMTS  INITIALIZE  THE  INTEGER  ARRAYS  CONTAINING  TIME!  TO 
C  START  SMLDRG  AND  TIME  TO  SMLDR  OUT.  ARRAY*  ARE  SUBSCRIPTED  BY  SURFACE 
C  NUMBER. 

C 

200  DO  210  I-l.LSN 
M-IMATLd) 

ITP(I)-TP(M)+0.  9 
210  ITPC  ( I )  — TPC  <  M )  *0.  9 
DO  220  IS-1.7 
M-IMATS( IS) 

ITPS( IS) -TP (M) +0.  9 
220  ITPCS( IS)-TPC(M)+0.  9 
RETURN 
END 
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SUBROUTINE  INITLZ 


C  OBJECTIVE! 3) 

C  (1)  INITIALIZE  MOST  CONSTANTS  AND  VARIABLES 
C  (2)  SET  ALL  ELEMENT  STATES  TO  THE  INITIAL  (VIRGIN)  STATE 
C  (3)  COMPUTE  FLAME  SPREAD  CALCULATION  INTERVALS.  DELTSP  AND  ITSPRD 
C  COMMENTS 

C  (1)  SEE  MAIN  POM  FOR  BEST  DEFINITION  OF  VARIABLES 
C  <2>  SOME  ELMNT  STATES  MAY  BE  RE-INITIALIZED  BY  SUBR  RDICTN  WHICH 
C  FOLLOWS  DOWNSTREAM 


C 


COMMON/CNTRL/DELTAT. DELTSP. ECOFLO. IDELT, I DENT ( 20 ) . IDTPRV. IPEMS. 

1  IPSPR.  IPAUX,  IRATIO,  ISAVE,  ISCALE.  ITFIN,  ITIME.  ITIM2. 

2  ITSPRD. NP ASS. TFINAL,  IDBUG1.  EPSLN.  MAXITR,  MAXCUT, 

3  JCBSKP 

COMMON/FIRES/AFM ( 7 ) > ASM<7),  ISTATEC 120.  15).  ISTATS<9.  16.  22). 

1  IWORDC 120.  15).  I WORDS (9,  16. 22 ) . NFLM ( 7) , NPYR ( 7 ) . 

2  RGS( 10. 7), RSS< 7 ) . TOTGAS ( 10 ) .  TOTSEM. TRGFI 10), 

3  TRCS< 10), TRSF, TRSS, NCE ( 30 > ,  VITNR, TOTVIT. RADFIR(30). 

4  ACM<7 ) , AF  <  30 ) , AFI, AEXP, COMB < 30 ) .  DQK.  FLML ( 30 ) .  FSN1 . 

5  FSN2, FSN3, GAMMA (30),  I BURN.  IF<600>.  IGMNI.  IGMNJ.  ICMXI. 

6  IGMXJ.  IGNFIR,  IGNIJC2,  100).  IOSN.  ISFIRE(30>.  IVMAXC30). 

7  I VM INC  30 ) .  IVMN.  IVMX.  IXFIRE.  I  ZONE  <  30  > . JVMAX ( 30  > . 

9  JVM  I N  <  30 ) ,  JVMN.  JVMX.  K,  NFE(30) .  NFIRES,  NI JC.  NIJSQ. 

9  NPE ( 30 ) , NSFL ( 7 > , OMEGA ( 30 ) .  PDH,  P IGN.  RFC 20,  4),  RFSC7.  4). 

1  RFWS. ROFC 10. 7), RGFKC 10), RHOZC30). RSFC7), RSFK. TDQ. 

2  TBURN1. UZC30).  YZC30),  ZBC30).  RHOEFG,  CHIEFGC 11). 

3  FLOWIN, FLWOUT. TEFG.  IFRVNT . GENRATC 11 ),  TDQMTLC7), 

4  TP ( 7 ) .  TPC  C 7) 

COMMON/GASES/CHILC 11,  5). CHIUC 11,  5),  CP,  NGASC 1 1 > .  NSPCS.  PAMB,  PF ( 5  > , 

1  RHOAM.  RHOL C 5 ) ,  RHOU ( 5 > ,  TAM.  TLC5). TUC5),  VOLLC5), 

2  V0LUC5). ZDC5). XTHENC 120) .  WMOLEC C 1 1 ) .  TWOC 101 ), 

3  JCORC 120) 

CQMMQN/GMTRY/ IMATL (20 ) .  IMATSC7 ) ,  IMTLPC4).  I MAX ( 30 ) ,  IMINC30). 

1  IRAYC 116). IRAYSC22). JMAXC30), JMINC30) • LSN, MAXELI. NS. 

2  CH.  CL(4),CW.  DWS.  HSTS,  IARXC40,  IS).  I  ARY  ( 40.  12).  ICLL. 

3  ICLR, I END, IFIRL. IFIRR, ILSTL. ILSTR. I0NEC9), 

4  ISSWLIC9, 10). ISSWLJC9. 10). ISSURIC9. 10). ISSWRJC9. 10). 

5  ISWSLC15. 8),  ISWSRC 15.  8).  ISTART. NPROJ,  IPJUL,  IPJLL. 

6  IPJUR,  IPJLR,  JEND,  J0NEC9),  JSTART.  NJS.  NSO.  NV.  S0WDC9). 

7  3L,  SWDC20). VNC20, 3). VENTH < 24 ) , VENTW 1 24 ) , VENTT ( 24 ) , 

8  XMNC30).  XMXC30).  XCOR  C  9  > .  YCOR  C  9 ) ,  ZOO),  SSGWD.  TVSQ, 

9  HT1,  HT2.  HT3,  HT4C  10).  NSSTS.  SLSW.  SX < 30 ) ,  SZ  ( 30 > , 

1  CNCTNSC24) , NCOMPS.  IFRCMP. FLOW <  24 ) >  INT0C24). VTOTAL ( 4  > , 

2  FHMIN 

COMMON/MATLS/TABX ( 18.  7. 6). TABYC 18.  7, 6),  NTXG,  FOXI.  RADTAB ( 7 ) . RADI . 

1  FOX ( 7 ) ,  NMATLS.  DQI. DQMC7), OAMI. GTABC7),  ITFC20),  IRAMPT. 

2  ITFCC20). ITFCSC7). ITFSC7), ITPC20), ITPCC20). ITPCSC7), 

3  ITPEC20) ,  ITPESC7),  ITPSC7),  GCI. GP C 7 ) . OTAB < 7 ) , RHOI , 

4  RH0MC7).  RSI.  RTAB ( 7) , RTGI ( 10 > . UTAB C 7 ) , CNDCTY ( 7 ) ,  XMUI, 

5  XMFI,  TKNSC7), TSLC30,  2,  4).  TSP  ( 2,  2,  4),  CPMC7).  WMMTL  ( 7 ) . 

6  WMIOF, TKNSINC7) 

COMMON  /  PAR  AMS/ OR  AV,  PI,  QTR.  ROAS.  SIGMA.  SQD.  THOU,  TOL,  EC,  EP 
COMMON/RADTN/ALPC, ABSCFC30). EB. 0CC2) 

DIMENSION  X ( 120) 

INITIALIZE  VARIOUS  CONSTANTS. 

PI-3.  1415927 
qrav  .  aa. 174 


RGAS  -  1545.  0 
CP-O.  24 

SIGMA-4  761E-13 
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THOU- 1 COO  0 
OTR-O  23 

C  ABSORPTION  COEFFICIENT  FOP  ALL  FIRES  IS  GIVEN  THE  DEFAULT  VALUE  0  23 
DO  191  K-1.30 
191  ABSCF <  K ) —0.  23 
C  INITIALIZE  MORE  CONSTANTS 
EB-16.  3 
EC-0  11 
EP-0  10 

C  COMPUTE  THE  OXYGEN  CONSUMPTION  FACTOR  FOR  EACH  MATERIAL. 

DO  190  M— 1 , NMATLS 
190  F0X(M)-0TAB(M)/GTA8(M) 

C  INITIALIZE  THE  HEAT  FLUX  VARIABLES  GC ( 1 )  AND  QC<2> 

0C<  1 >-0 
QC(2)-0. 

C  THE  NEXT  12  STMTS  INITIALIZE  THE  IWORD  AND  ISTATE  ARRAYS  FOR  ALL  CABIN 
C  LINING  SURFACE  ELEMENTS. 

1-0 

10  I-I  +  l 

11- IMIN(I) 

1 2-  1 MAX ( I ) 

DO  20  11-11. 12 
J1»JMIN< I ) 

J2— UMAX ( I ) 

DO  13  UJ-J1.  J2 
I  WORD  (  II.  JJ )  -0 
13  I ST ATE  <11. J J )  —  1 1 

20  CONTINUE 

C  TEST  IF  ALL  LINING  SURFACES  HAVE  BEEN  COVERED. 

IF ( I .  LT  LSN)  GO  TO  10 

C  THE  NEXT  14  STMTS  INITIALIZE  THE  IWORDS  AND  ISTATS  ARRAYS  FOR  ALL  SEAT 
C  ELEMENTS. 

I -LSN 
30  I-I+l 

IS- I -LSN 
JMIN< I > -1 
JMAX ( I ) -22 
IMIN( I >— 1 

IMAX ( I ) —2.  0*SGWD( ISl+TOL 
12— I MAX  < I ) 

DO  40  JJ— 1.  22 
DO  33  II-l. 12 
IWORDS < IS.  II. JJ1-0 
33  1STATSC IS, II, JJl-ll 
40  CONTINUE 

IF<  I.  LT  NS)  GO  TO  30 

C  TEST  IF  ALL  SEAT  GROUPS  HAVE  BEEN  COVERED. 

C  INITIALIZE  THE  ARRAY  'IF'  USED  TO  ORGANIZE  FIRE  BASE  AREAS 
DO  60  IJ-1,600 
60  I F  <  I J )  -0 

C  SET  THE  COUNTERS  OF  SMLDRG.  FLAMING,  AND  CHARRED  ELMNTS  PER  SURF  TO  0. 
DO  70  I-l,  NS 
NCE ( I ) -0 
NPE ( I ) -0 
70  NFE  t  I )  -0 

CALL  SUBR  INIT2  TO  SET  UP  GEOMETRY  ARRAYS 
CALL  INIT2 

CONVERT  THE  SMALL  TIME  STEP  SIZE  AND  STOP  TIME  FROM  THE  (INPUT)  VALUE 
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C  IN  SECONDS  TO  MILLISECONDS 
IDELT«DELTAT*THOU+0.  i 
IDTPRV-IDELT 
ITFIN-TFINAL*THOU+0.  1 

C  A  VALUE  OF  IRATIO  »  0  RESULTS  IN  A  FLAME  SPREAD  CALCULATION  AT  EACH 
C  SMALL  INTEGRATION  STEP  (EACH  IDELT)  THIS  IS  A  DEFAULT  SETTING 
IFURATld.  GT  0)G0  TO  80 
ITSPRD-1 
DELTSP-1.  0 
GO  TO  90 

C  ITSPRD  IS  THE  TIME  BETWEEN  FLAME  SPREAD  PASSES  IN  MILLISECONDS.  AND 
C  DELTSP  IS  THE  SAME  QUANTITY  GIVEN  IN  SECONDS  ONCE  THESE  VALUES  ARE 
C  INITIALIZED  THEY  REMAIN  CONSTANT  IN  THIS  VERSION  (3  0) 

80  ITSPRD«IDELT*IRATIO 
DELTSP* ITSPRD /THOU 
90  CONTINUE 

C  IPEMS  IS  THE  INTERVAL  IN  MILLISECONDS  BETWEEN  SUCCESSIVE  OUTPUT  OF  THE 
C  CABIN  GAS  VARIABLES,  IPSPR  IS  THE  CORRESPONDING  VALUE  FOR  THE  FLAME 
C  SPREAD  CALCULATIONS. 

IPEMS- IPEMS-THOU+0.  1 
IPSPR— IPSPR*THOU*0.  1 
IPAUX  -  IPAUX  *  THOU  +  0.  1 
C 

DO  110  NC— 1 >  NCOMPS 

INITIALIZE  SPECIES  MASS  FRACTIONS  AND  SMOKE  FOR  UPPER  AND  LOWER  ZONES 
OF  ALL  COMPARTMENTS 


CHILI  1 , NC)  -  0  77 
CHIU ( 1 ,  NC)  -  0  77 
CHILI 2, NC)  -  0  23 
CHIU  1 2,  NC)  -  0  23 
CHILI 3,  NC)  -  0.  0 
CHIU  1 3,  NC)  -  0.  0 
CHILI4.  NC)  -  0.  0 
CHIUI4,  NC)  -  0.  0 
CHILIS.  NC)  -  0.  0 
CHIU! S,  NC)  -  0.  0 

DO  lOO  NT-l.NTXG+1 
CHILI 9+NT.  NC)  -  0.  O 
CHIUI9+NT,  NC)  -  0. 0 
100  CONTINUE 
110  CONTINUE 

COMPARTMENT  NUMBER  S  IS  THE  EXTERIOR  ALWAYS 


CHILI  1.  S)  -  0.  77 
CHIU!  1.  S)  ■  0.  77 
CHILI2,  5)  -  0.  23 
CHIUI2.  S)  »  0.  23 
CHILI 3. 9)  -  0  0 
CHIUI3.  S>  -  0  0 
CHILI4. 9)  -  0  0 
CHIU! 4,  9)  -  0  0 
CHILIS.  9)  -  0  0 
CHIUI9. 3)  -  0  0 


ALL  COMPARTMENT  PRESSURES,  TEMPERATURES,  AND  DENSITIES  ARE  SET  TO 
THE  AMBIENT  VALUES 
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DO  11S  NC-1.NC0MPS 
PF(NC)  »  PAMB 
TL(NC)  -  TAM 
TU<NC>  -  TAM 

RHOL(NC)  -  PAMB  /  <  33.42324  *  TAM  > 

RHOU(NC)  «  RHOL(NC) 

C  CONVERT  PRESSURE  UNITS  TO  LBM/ ( FT-SEC**2 ) 

PF(NC)  «  PF(NC)  *  SR AV 

TO  AVOID  STARTING  PROBLEMS  THE  UPPER  ZONE  VOLUME  IS  INITIALIZED 
TO  A  NON-ZERO  VALUE  OF  0.  001  *  COMPARTMENT  VOLUME 

CALL  XSEC (  CH.  AREA  ) 

VTQTAL  <  NC  >  -  CL (NC)  *  AREA 
VOLL(NC)  -  0.999  *  VTOTAL(NC) 

VOLU(NC)  ■  0.001  *  VTOTAL(NC) 

SET  THE  THERMAL  DISCONTINUITY  POSITION  (LOWER  ZONE  THICKNESS)  FROM 
THE  LOWER  ZONE  VOLUME 

ZDS  ■  0.  999  *  CH 

CALL  HE I GHT (  NC.  VOLL(NC).  ZDS.  ZD(NC)  ) 


113  CONTINUE 

DO  120  NC-6.  11 
CHIL(NC.  3)  «  0.  0 
CHIU(NC,  3)  -  0.  0 
120  CONTINUE 

PF ( 3 )  ■  PAMB 
TUO )  ■  TAM 
TL(  3)  -  TAM 

RHOUO)  »  PAMB  /  (  33.  42324  *  TAM  ) 

RHOL (  3 )  »  RHOUO) 

PFO)  ■  PFO)  *  SRAV 
VOLLO)  -  99999. 

VOLUO)  -  99999. 

ZDO)  -  99999. 

SET  THE  MATERIALS  SURFACE  TEMPERATURES  TO  THE  AMBIENT 

DO  130  IC-t.NCOMPS 
TSP ( 1.  t.  IC)  ■  TAM 
TSP ( 1 . 2. IC)  -  TAM 
TSP (2.  1.  IC)  -  TAM 
TSP <2.  2.  IC)  -  TAM 
DO  130  Jal.LSN 
TSL ( J.  1.  IC)  ■  TAM 
TSL ( U>  2.  IC)  -  TAM 
130  CONTINUE 

INITIALIZE  ARRAY  TWO 

DO  140  1C-1.S0 
TWO(ICOl)  -  2.  **  IC 

TWO ( 3 1 - I C )  -  2.  **  (-IC) 

140  CONTINUE 
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TWO ( 51  ) 


1. 


C 

C  INITIALIZE  ARRAY  X 
C 

I  *  0 

DO  170  N2-1.NC0MPS 
DO  ISO  Nl-l.NSPCS 
I  *  I  ♦  1 

150  X<I>  -  CHIL ( N1 > N2) 

DO  160  Nl”l i NSPCS 
I  *  I  +  1 

160  X < I )  -  CHIU ( N1 1  N2 ) 

X< 1*1 )  *  PF(N2) 

X ( I *2 )  ■  RHOL ( N2 ) 

X  < I +3 )  *  RHOU  <  N2 ) 

X  < 1+4)  -  TL(N2) 

XU+S)  »  TU  <  N2 ) 

X  < 1+6)  -  VQLL ( N2 ) 

X  < 1+7 )  *  VQLU ( N2 ) 

X ( I +8 )  »  ZD(N2> 

1*1+8 
170  CONTINUE 
C 

C  TO  INITIALIZE  ARRAY  JCOR  CALL  SCALE  WITH  ISW  *  0 
C 

CALL  SCALE (0.  X,  I ) 

C 

C  INITIALIZE  ARRAY  XTHEN 
C 

DO  180  JU-1, I 
XTHEN (JJ)  »  X(JJ) 

180  CONTINUE 
C 
C 

C  SET  THE  IGNITION  SOURCE  FLAG  TO  A  DEFAULT  OF  ZERO 
C 

I BURN  -  0 

RETURN 

END 
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SUBROUTINE  INIT2 
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OBJECTIVE ( S ) 

(I)  THIS  SUBROUTINE  INITIALIZES  JO  ARRAYS  CONTAINING  INFORMATION  ABOUT 
THE  GEOMETRIC  RELATIONSHIP  AMONG  THE  CABIN  SURFACES: 

IARX(L,N>  INDICATES  POSITION  OF  SEAT  GROUPS  WITH  RESPECT  TO  THE 

FLOOR  <X-Y)  PLANE.  SUBSCRIPTS  CORRESPOND  TO  THE  I  AND  J 
INDICES  OF  THE  FLOOR  ELEMENTS.  VALUE  IS  THE  NUMBER  OF 
THE  SEAT  GROUP  DIRECTLY  ABOVE  FLOOR  ELMNT  L. N.  VALUE 
OF  ZERO  INDICATES  NO  SEAT  GROUP  ABOVE. 

I ARY ( L,  N )  INDICATES  POSITION  OF  OVERHEAD  SURFACES  (CEILING,  HAT 
RACK.  PSU'S,  ETC.  )  WITH  RESPECT  TO  SEAT  GROUPS  AND 
FLOOR  SUBSCRIPT  L  EQUALS  THE  FLOOR  I  INDEX.  SUBSCRIPT 
N  IS  USED  AS  FOLLOWS: 

N-l, NON-ZERO  VALUE  «  J  INDEX  OF  ELMNTS  ON  SEAT  GROUP  I 
WHICH  ARE  IN  THE  SAME  Y-Z  PLANE  AS  FLOOR  ELMNTS 
WITH  I  INDEX  »  L. 

N-2,  NON-ZERO  VALUE  -  J  INDEX  OF  ELMNTS  ON  SEAT  GROUP  2 
WHICH  ARE  IN  THE  SAME  Y-Z  PLANE  AS  FLOOR  ELMNTS 
WITH  I  INDEX  »  L. 

.  .  .  AND  SO  ON  THRU 

N-9,  NON-ZERO  VALUE  *  J  INDEX  OF  ELMNTS  ON  SEAT  GROUP  9 
WHICH  ARE  IN  THE  SAME  Y-Z  PLANE  AS  FLOOR  ELMNTS 
WITH  I  INDEX  -  L. 

A  ZERO  VALUE  FOR  IARY(L.  N-l  THRU  9)  INDICATES  NO  SEAT 
GROUP  N  ELMNTS  ARE  IN  THE  SAME  Y-Z  PLANE  AS  FLOOR 
ELMNT  <L,  N) 

FOR  N-10  AND  U  I ARY  CONTAINS  DATA  ON  THE  HAT  RACK  IF 
IT  EXISTS.  ONLY  ONE  HAT  RACK  (FOR  EACH  SIDE  OF  THE 
CABIN)  IS  ALLOWED.  IF  THERE  IS  NO  HAT  RACK  I ARY ( L, 10) 
AND  IARY(L. 11)  WILL  REMAIN  ZERO. 

N-10,  VALUE  »  I  INDEX  OF  ELMNTS  ON  HAT  RACK  BOTTOM 

surf  (Facing  floor)  which  are  in  the  same  y-z 

"•  PLANE  AS  FLOOR  ELMNTS  WITH  I  INDEX  »  L. 

N-ll,  VALUE  -  I  INDEX  OF  ELMNTS  ON  HAT  RACK  UPPER 

SURF  (FACING  CEILING)  WHICH  ARE  IN  THE  SAME  Y-Z 
PLANE  AS  FLOOR  ELMNTS  WITH  I  INDEX  «  L. 

FOR  N-12  I ARY  CONTAINS  DATA  ON  CEILING  SURFACES  WHICH 
ARE  PARALLEL  TO  AND  FACING  THE  FLOOR. 

N-12,  VALUE  -  I  INDEX  OF  ELMNTS  ON  CEILING  (OR  PSU, 
STOW  BIN,  ETC)  SURFS  WHICH  ARE  IN  THE  SAME  Y-Z 
PLANE  AS  FLOOR  ELMNTS  WITH  I  INDEX  »  L. 

ISWSL(L. N)  INDICATES  THE  POSITION  OF  THE  LEFT-MOST  SEAT  CROUPS 
WITH  RESPECT  TO  THE  LEFT  CABIN  SIDEWALL.  (  LEFT  IS 
DEFINED  BY  A  VIEW  FACING  AFT.  )  SUBSCRIPT  L  EQUALS  THE 
SIDEWALL  J  INDEX  AND  N  IS  USED  AS  FOLLOWS. 

N-l,  VALUE  -  SEAT  GROUP  NUMBER  ADJACENT  TO  SIDEWALL 
ELMNTS  WITH  J  INDEX  -  L. 

N— 2, 3,  4,  .  .  ,  8  VALUE  -  J  INDEX  OF  SEAT  ELMNT  NEAREST 

TO  SIDEWALL  ELMNT  WITH  J  INDEX  -  L.  FOR  N-2  THESE 
ARE  SEAT  ELMNTS  ON  THE  CUSHION  TOP  AND  LOWEST 
REAR  ROW  OF  THE  BACK  REST,  FOR  N-3  NEAREST  ELMNTS 
ARE  ON  THE  NEXT  HIGHEST  REAR  BACKREST  ROW,  ETC. 
EXAMPLE:  ARRAY  ISWSL  FOR  2  SEATS  (NUMBERS  1  AND  4) 
ADJACENT  TO  THE  LEFT  SIDEWALL  STARTING  AT  J-2 
AND  J-8  ON  THE  SIDEWALL. 
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N 

ISUSLfL. S) 
ISUSL ( L. 7) 
ISUSL  <L,  6) 
ISWSL ( L, 5) 
ISUSL (L. 4) 
ISWSL (L,  3) 
ISUSL  ( L, 2) 
ISWSL (L. I ) 

VALUES  OF 


-  21 

»  1 

L>  1  2 

THE  ARRAY 


19 

1 

4 


1  1 
10 

9 

s 

7 

6 

3 

1 

5 


21  20  19 
4  4  4 

6  7  8  9  10 

FOR  ALL  OTHER  L. N  PAIRS 


1  1 
10 

9 

8 

7 

6 

5 

4 

11  12 
WILL 


BE 


15 

ZERO 


ISWSR  <  L.  N )  INDICATES  THE  POSITION  OF  THE  RIGHT-MOST  SEAT  GROUPS 
WITH  RESPECT  TO  THE  RIGHT  CABIN  SIDEWALL.  VALUES  AND 
SUBSCRIPT  DEFINITIONS  DEFINED  ANALOGOUSLY  TO  ISWSL. 


.  N) 


ISSWLI < IS, 
AND 

ISSWLJ< IS,  N) 


THESE  ARRAYS  INDICATE  THE  POSITION  OF  THE  LEFT 
SIDEWALL  WITH  RESPECT  TO  THE  LEFT-MOST  SEAT  GROUPS. 


THEY  CONTAIN  VALUES  OF  SIDEWALL  ELMNT  I  AND  U 
INDICES  NEAREST  TO  THE  SEAT  ELMNTS  WITH  I  INDICES 
GIVEN  BY  N.  IS  IS  THE  SEAT  GROUP  NUMBER. 


ISSWRI ( IS.  N) 
AND 

ISSURJt IS.  N) 


THESE  ARRAYS  INDICATE  THE  POSITION  OF  THE  RIGHT 
SIDEWALL  WITH  RESPECT  TO  THE  RIGHT-MOST  SEAT  CROUPS. 
THEY  CONTAIN  VALUES  OF  SIDEWALL  ELMNT  I  AND  J 
INDICES  NEAREST  TO  THE  SEAT  ELMNTS  WITH  I  INDICES 
GIVEN  BY  N.  IS  IS  THE  SEAT  GROUP  NUMBER. 


XMX  < I )  AND  XMN(I)  ARE  THE  MAXIMUM  AND  MINIMUM  DISTANCES  (FT) 
OF  LINING  SURFACE  I  ABOVE  THE  FLOOR 

(2)  THIS  SUBROUTINE  ALSO  DETERMINES  THE  VALUES  OF  THE  FOLLOWING: 


FHMIN 

NPROU 

IPJUL 
I  PULL 
IPJUR 
IPJLR 
IFIRL 
IFIRR 
ILSTL 
ILSTR 


THE  MINIMUM  DISTANCE  FROM  THE  CABIN  FLOOR  TO  THE 
CEILING  IN  FT. 

A  FLAG  TO  INDICATE  THE  PRESENCE  OF  PROJECTING  SURFACES 
(HAT  RACKS).  NPROJ  -  1  ->  HAT  RACK  IS  PRESENT 


SURFACE 
SURFACE 
SURFACE 
SURFACE 
I  INDEX 
I  INDEX 
I  INDEX 
I  INDEX 


NUMBER  OF  THE  UPPER 
NUMBER  OF  THE  LOWER 
NUMBER  OF  THE  UPPER 
NUMBER  OF  THE  LOWER 
OF  HIGHEST  ELMNT  ON 
OF  LOWEST  ELMNT  ON 
OF  LOWEST  ELMNT  ON 


LEFT  HAT  RACK  SURFACE 
LEFT  HAT  RACK  SURFACE 
RIGHT  HAT  RACK  SURFACE 
RIGHT  HAT  RACK  SURFACE 
LEFT  SIDEWALL  NEXT  TO  A  SEAT 
RIGHT  SIDEWALL  NEXT  TO  A  SEAT 
LEFT  SIDEWALL  NEXT  TO  A  SEAT 


OF  HIGHEST  ELMNT  ON  RIGHT  SIDEWALL  NEXT  TO  A  SEAT 


COMMENTS 

(1)  THE  PURPOSE  OF  MOST  OF  THIS  INFORMATION  IS  THE  CALCULATION  OF 
FLAME  SPREAD  IN  SUBROUTINES  COND,  CONDS.  FCON,  AND  FCONS.  AND  THE 
PROPAGATION  OF  SMOLDERING  REGIONS  IN  PVOL  AND  PVOLS. 

(2)  BEFORE  STUDYING  THE  OPERATION  OF  THIS  SUBROUTINE  REVIEW  OF  THE 
ELEMENT  NUMBERING  CONVENTIONS  GIVEN  IN  THE  USER'S  GUIDE,  APDX  C  OF 
C23  IS  RECOMMENDED. 


COMMON/CNTRL/DELTAT, DELTSP, ECOFLG, IDELT, IDENT(20), IDTPRV, IPEMS. 

1  IPSPR.  IPAUX.  I  RAT  10,  X  SAVE.  XSCALE.  XTFIN.  ITIMC.  I T  IMG. 

2  ITSPRD,  NPASS.  TFINAL.  IDBUG1,  EPSLN.  MAXITR,  MAXCUT, 

3  JCBSKP 

C0MMQN/FIRES/AFM<7) , ASM(7) ,  ISTATEC 120-  13),  ISTATS(9,  16.  22) , 


A-  30 


1  I WORD ( 120,  15),  X WORDS (9,  16. 22). NFLM ( 7 ) , NPYR<7>, 

2  RGS ( 10,  7) ,  RSS<7> , TQTGAS ( 10) , TOTSEM, TRGF < 10) - 

3  TRGSf  10),  TRSF,  TRSS,  NCEC30),  VITNR,  TOTVIT,  RADF IR  ( 30) . 

4  ACM  <  7 ) , AF<30>, AFX, AEXP,  C0MB(30>.  DGK,  FLML ( 30 ) .  FSN1, 

5  FSN2, FSN3, GAMMA (30) .  IBURN,  IF(600),  IGMNI,  IGMNJ.  XGMXI. 

6  IGMXJ.  IGNFIR,  IGNI J ( 2,  100).  IGSN.  ISF1REC30),  IVMAX<30), 

7  IVMIfl<30>,  IVMN.  IVMX,  IXFIRE,  I  ZONE  ( 30 ) ,  JVMAX  <  30 ) , 

8  JVM  I N  <  30 ) .  JVMN,  JVMX,  K,  NFEOO) .  NFIRES.  NIJC.  NIJSG. 

9  NPE ( 30 ) ,  NSFL ( 7 ) ,  OMEGA (30),  PDH.  PIGN,  RF<20.  4).  RFS<7,  4), 

1  RFWS, RGF ( 10, 7>.  RGFKC 10), RHOZ < 30 ) , RSF ( 7 ) , RSFK. TDQ, 

2  TBURNI, UZ ( 30 ) , YZ(30), ZB(30),  RHOEFG,  CHIEFG ( 11 ), 

3  FLOWIN. FLUOUT,  TEFG,  I FRVNT , GENRAT (11), TDQMTL  <  7 ) , 

4  TP  <  7 ) ,  TPC  <  7 ) 

COMMON/GASES/CHIL< 1 1. 5), CHIU< 11, 9) , CP, NGAS (11), NSPCS,  PAMB, PF( 5). 

1  RVtOAM.  RHOL <  S ) .  RHOU (  3 ) ,  TAM,  TL<  5) .  TU<3>.  VOLLI  3), 

2  VOLU<  3) , ZD( 3), XTHEN ( 120),  WMOLEC ( 11 ),  TWO< 101 >. 

3  JCOR (120) 

COMMON/GMTRY/IMATL<20>,  I MATS < 7 ) ,  IMTLP < 4 ) ,  IMAX(30),  IMIN(30), 

1  IRAY( 116),  IRAYS ( 22 > . JMAX ( 30 ) . JMIN< 30 ) , LSN. MAXELI .  NS. 

2  CH,  CL  ( 4  ) ,  CW,  DWS,  HSTS,  IARX(40,  13),  IARY<40,  12).  ICLL, 

3  ICLR, I END, IF1RL. IFIRR. XLSTL. ILSTR. ZONE (9). 

4  ISSULI <  9,  10),  ISSUL J ( 9,  10).  ISSWRI (9,  10).  ISSWRJ<9,  10) 

3  ISUSLt 13. 8). ISWSR< 13. 8). ISTART, NPROJ. IPJUL, IPJLL. 

6  IPJUR,  IP JLR, JEND. J0NE<9),  JSTART ,  NJS,  NSG.  NV,  SCWD<9). 

7  SL, SUD ( 20 ) . VN < 20, 3), VENTH(24>. VENTU<24>,  VENTT(24>, 

8  XMN(30).  XMX  ( 30 ) ,  XCOR  ( 9 ) ,  YCOR  ( 9 ) ,  ZOO),  SSCWD,  TVSG, 

9  HTl, HT2, HT3, HT4< 10). NSSTS. SLSU, SX ( 30 ) , SZ OO ) , 

1  CNCTNS  <  24 ) . NCOMPS,  IFRCMP, FL0W(24>,  INTO! 24 ) , VTOTAL ( 4 ) , 

2  FHMIN 

COMMON/MATLS/TABX( 18.  7,  6).  TABY< 18.  7,  6),  NTXG, FOX  I , RADTAB ( 7 ) , RADI . 

1  FOX ( 7 ) , NMATLS,  DOI.  DOM ( 7 ) , GAMI , GTAB C 7 > ,  ITF(20>,  IRAMPT, 

2  ITFC  <  20 ) .  ITFCS<7>,  ITFS(7),  ITP(20),  XTPC(20>.  ITPCS(7). 

3  X  TPE  <  20 ) .  I TPES ( 7 ) .  I TPS ( 7 ) .  GC I .  GP ( 7 ) ,  GTAB ( 7 ) ,  RHOI , 

4  RHQM(7). RSI. RTAB ( 7 ) . RTGI ( 10 ) .  UTAB ( 7 ) ,  CNDCTY ( 7 ) ,  XMUI, 

9  XMFI,  TKNS < 7 ) ,  TSL ( 30.  2,  4),  TSP<2,  2.  4 ) ,  CPM(7 ) ,  WMMTL ( 7) , 

6  WMIGF, THNSIN<7> 

COMMON/ PAR  AMS/ GRAY,  PI.  QTR,  RGAS.  SIGMA.  SOD.  THOU,  TOL.  EC.  EP 
COMMON /RADTN/ ALP C, ABSCF < 30) .  EB,  GC<2> 

C  INITIALIZE  I ARY  AND  IPJLL  THRU  IPJUR  TO  ZERO.  12  IS  THE  HIGHEST  I 
C  INDEX  VALUE  ON  THE  FLOOR 
I2*IMAX< 1 ) 

DO  2  N-l.  12 
DO  2  L-l.  12 
2  IARY<L. N)»0 
IPJLL-0 
IPJUL-0 
IPJLR-0 
IP JUR"0 

C  THE  LOOP  THRU  STMT  3  LOADS  IARY1L. 12)  WITH  I  INDICES  FROM  THE  CEILING 
C  ICLR  IS  THE  RIGHT-MOST  CEILING  SURF,  ICLL  THE  LEFT-MOST. 

L-I2+1 


DO  3  I-ICLR. ICLL 

C  SKIP  VERTICAL  CEILING  SURFACES 
IF(VN(  I.  3).  EG.  0.  )G0  TO  3 
I 1*IMIN( I ) 

12* I MAX ( I > 

DO  4  II-I1, 12 
L-L-l 

4  I ARY ( L. 12J-II 

3  CONTINUE 

C  INITIALIZE  NPROJ  AND  PREPARE  TO  LOAD  I ARY (L, 11) 
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o  n 


NPROJ-O 

IDX-lt 

IX-ICLL+1 

C  LOOP  THRU  STMT  9  LOADS  I ART (LL<  1 1 >  WITH  UPPER  HAT  RACK  SURFACE  I 
C  INDICES.  IF  NO  SUCH  UPWARD  FACING  SURFACES  ARE  FOUND  NO  LOADING  TAKES 
C  PLACE  AND  NPROJ  WILL  STAY  *  0. 

DO  9  I  —  I X ,  LSN 

C  TEST  FOR  SURFACE  I  BEING  UPWARD  FACING  BY  USING  Z-COMPONENT  OF  NORMAL 
IF(VN<  I,  3).  NE.  1.  0)00  TO  9 
IPJUL-I 
LL-0 

I 1— IMIN( I ) 

12“ I MAX ( I ) 

DO  7  II-I1, 12 
LL-LL+1 

7  IARY(LL< IDX)“II 

C  HAT  RACK  FOUND.  NPROJ-1: 

NPROJ* 1 
ISTOR-I 

C  SINCE  A  HAT  RACK  WAS  FOUND  SKIP  TO  STMT  11  TO  FINISH  FILLING 
C  I ARY (LL. 11 ) 

00  TO  11 
9  CONTINUE 

C  IF  CONTROL  REACHES  THIS  POINT. NO  HAT  RACK  EXISTS  SO  SKIP  TO  STMT  27 
GO  TO  27 

C  LOOP  THRU  STMT  14  LOADS  IARY<LL. 10)  WITH  I  INDICES  FROM  THE  LOWER 
C  SURFACE  OF  THE  HAT-RACK. 

11  IX-ISTOR+1 
IDX*10 

DO  14  I* IX. LSN 

IF<VN(  I.  3).  NE.  -1.  0)G0  TO  14 

IPJLL-I 

I 1— IMIN< I ) 

1 2* I MAX  < I ) 

LL-I2-I1+2 
DO  13  1 1  — 1 1.  12 
LL-LL-1 

13  IARY(LL.  IDXJ-II 
GO  TO  17 

14  CONTINUE 

C  IF  CONTROL  REACHES  THIS  POINT  NO  HAT  RACK  LOWER  SURFACE  HAS  BEEN  FOUND 
C  TO  MATCH  THE  UPPER  LEFT  SURFACE  DISCOVERED  PREVIOUSLY.  THEREFORE 
C  WRITE  AN  ERROR  MESSAGE  AND  STOP. 

WRITE <6. 19) 

19  FORMAT </ 10X.  48HHAT  RACK  LEFT  LOWER  SURFACE.  NOT  FOUND.  -.  PCM.  STOP ) 
999  STOP 

LOOP  THRU  STMT  20  LOADS  I ARY ( LL. 10)  FOR  THE  LOWER  SURFACE  OF  THE  RIGHT 
HAT  RACK. 

17  IX-ICLR-l 

DO  20  1-2,  IX 

IF < VN< 1,3).  NE.  -1 .  0)G0  TO  20 

IPJLR-I 

Il-IMIN(I) 

I 2* I MAX ( I ) 

IDX-10 

LL— IMAX  < 1 )*1 
DO  19  II-I1. 12 
LL-LL-1 

19  IARYCLL.  IDX  >-! I 

ISTOR-I 
GO  TO  22 
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20  CONTINUE 

C  IF  NO  RIGHT  HAT  RACK  LOWER  SURFACE  IS  FOUND  'AFTER  A  LEFT  HAT  RACK 
C  HAS  BEEN). WRITE  AN  ERROR  MESSAGE  AND  STOP 
WRITE (6.21) 

21  FORMAT < /10X,  49HHAT  RACK  RIGHT  LOWER  SURFACE  NOT  FOUND  -  PGM  STOP) 
GO  TO  999 

22  IT-ISTOR+1 
IDX-U 

C  LOOP  THRU  STMT  24  LOADS  IARYILL. 11)  FOR  THE  UPPER  SURFACE  OF  THE  RIGHT 
C  HAT  RACK. 

DO  24  I-IT, IX 

IF(VN(  I.  3)  .  NE.  1.  0>C0  TO  24 
IPJUR-I 

11- IMINC I ) 

12- IMAX ( I ) 

LL-IMAX ( 1 )-I2+I 1-1 
DO  23  II-I1, 12 
LL-LL+1 

23  IARY(LL,  IDXJ-II 
GO  TO  27 

24  CONTINUE 

C  IF  NO  RIGHT  HAT  RACK  UPPER  SURFACE  IS  FOUND  WRITE  A  MESSAGE  AND  STOP. 
WRITE16. 23) 

23  FORMAT (/ IOX. 49HHAT  RACK  RIGHT  UPPER  SURFACE  NOT  FOUND  -  PGM  STOP) 
GO  TO  999 

C  THE  NEXT  13  STMTS  INITIALIZE  ARRAY  IARX.  FIRST  LOAD  THE  ARRAY  WITH  0. 


27 


30 


I2-IMAX< 1 ) 

DO  30  N-l,  13 
DO  30  L-l.  12 
IARXfL. N)-0 


C  LOOP  THRU  STMT  40  LOADS  THE  SEAT  GROUP  NUMBER  INTO  IARX ( L. N )  WHERE 
C  L  AND  N  HAVE  VALUES  EQUAL  TO  THE  FLOOR  I  AND  J  INDICES  OVER  WHICH  A 
C  SEAT  GROUP  STANDS.  IONE  AND  UONE  HAVE  BEEN  COMPUTED  FROM  XCOR  AND  YCOR 
C  IN  SUBROUTINE  INPUTC. 

DO  40  IS-l.NSG 
11*1 ONE  < ISl  +  l 
1 2— SCWD (IS) *2.  O+TOL 
I2-I0NE( IS)+I2 
J 1 “UONE ( ISJ  +  l 
J2«U0NE< IS) +4 
IX-IS 

DO  33  L*I I.  12 
DO  33  N-Ul.  U2 
33  IARX (L. N) “I  X 
40  CONTINUE 

C  THE  NEXT  49  STMTS  LOAD  THE  ARRAYS  ISWSR  AND  ISWSL.  FIRST  SET  THEM  TO 
C  ZERO. 

I2-UMAX( 1 ) 

DO  43  L»l. 12 
DO  43  N-l.  S 
I SWSR  ( L.  N)  — 0 
43  ISWSLIL. N>— 0 

C  ILSTL.  IFIRL.  IFIRR,  AND  ILSTR  ARE  FOUND  FROM  THE  MAXIMUM  LINING  SURF 
C  I  VALUE,  I MAX (LSN) .  AND  THE  MINIMUM  I  INDEX  FOR  THE  FIRST  RIGHT  SIDE- 
C  WALL  SURFACE.  IMIN<2>.  NOTE  HOW  THE  ASSUMPTION  OF  STANDARD  SEAT  SIZE 
C  AND  POSITION  IS  USED 
ILSTL- I MAX (LSN) -2 
IFIRL-ILSTL-6 
IFIRR-IMIN<2)+2 
ILSTR— 1F1RR+6 

C  LOOP  THRU  STMT  60  SETS  UP  I SWSR (L. N) 
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DO  60  IS"1.  NSC 

IX"IS 

I-LSN+IS 

C  I END  IS  THE  VALUE  OF  THE  FLOOR  I  INDEX  BELOW  THE  RISHT  EDCE  QF  A  SEAT 
C  CROUP.  IF  THE  DISTANCE  BETWEEN  THE  SEAT  RIGHT  EDCE  AND  THE  RICHT  SIDE- 
C  WALL  IS  >  2  ELMNTS  DO  NOT  INCLUDE  THIS  SEAT  IN  ISWSR 
IEND-2.  0*SGWD< ISJ+TOL 
I END" I ONE ( IS )  + 1  END 
IF<  < IMAX ( 1 )-IEND) .  GT  2  >CO  TO  60 
J1-J0NE< IS)+1 
J2-J0NE(IS>+3 
JJ-22 

0  LOOP  THRU  STMT  50  SETS  UP  ISWSR(L, 1)  AND  ISWSR (L, 2)  FOR  SEAT  CUSHION 
C  ELMNTS.  SUBSCR  L  DETERMINED  BY  POSITION  OF  SEAT  WRT  SIDEWALL  J  INDEX. 
DO  50  J*J1, J2 
JJ-JJ-1 
ISWSR  ( J,  1  )  —  I  X 
ISWSR (J. 2)“JJ 
50  CONTINUE 
L-J2+1 

ISWSR (L, 1 )-IX 
JJ-4 

C  LOOP  THRU  STMT  53  SETS  UP  ISWSR<L,  2)  THRU  <L,  8i  FOR  SEAT  BACK  ELMNTS 
C  SUBSCR  L  DETERMINED  BY  POSITION  OF  SEAT  WRT  SIDEWALL. J  INDEX 
DO  S3  N*2,  8 
JJ-JJ+1 

35  ISWSR  (L,  N)*JJ 
60  CONTINUE 

C  LOOP  THRU  STMT  73  SETS  UP  ISWSL<L, N) 

DO  73  IS-l.NSG 

IX"IS 

I-LSN+IS 

C  IF  THE  LEFT  EDGE  OF  THE  SEAT  GROUP  IS  GREATER  THAN  2  ELMNTS  FROM  THE 
C  LEFT  SIDEWALL,  DO  NOT  INCLUDE  THIS  SEAT  IN  ISWSL. 

IF< ION£( IS) .  GT.  2 ICO  TO  73 

J1-J0NECIS)+1 

J2"J0NE( IS) +3 

UU-22 

C  LOOP  THRU  STMT  63  SETS  UP  ISWSUL.  1>  AND  (L,  2)  FOR  SEAT  CUSHION  ELMNTS 
C  SUBSCR  L  DETERMINED  BY  POSITION  OF  SEAT  WRT  SIDEWALL  J  INDEX. 

DO  63  J"J1,  J2 

jjmjj-l 

ISWSL  (J.  1 1  "IX 
ISWSL ( J, 2>"JJ 
63  CONTINUE 
L-J2+1 

ISWSL ( L, 1 )-IX 

JJ"4 

C  LOOP  THRU  STMT  70  SETS  UP  ISWSUL,  2)  THRU  CL.  S>  FOR  SEAT  BACK  ELMNTS 
C  SUBSCR  L  DETERMINED  BY  POSITION  OF  SEAT  WRT  SIDEWALL  J  INDEX 
DO  70  N«2,  8 
JJ" J J* 1 

70  ISWSL ( L. N)"UJ 

73  CONTINUE 

C  THE  NEXT  33  STMTS  (THRU  STMT  113)  SET  UP  THE  4  ARRAYS  ISSWLI.  ISSWLJ. 

C  ISSWRI,  AND  ISSWRJ.  FIRST  LOAD  THEM  WITH  ZERO. 

oo  as  is-i.  9 
do  ao  j-».  to 
ISSWRI ( IS, J>»0 
ISSWRJ < IS, J>-0 
ISSWLI ( IS. J)>0 
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80  ISSWLJ! IS.  J)*0 
83  CONTINUE 

C  LOOP  OVER  THE  NUMBER  OF  SEAT  GROUPS.  NSC.  I END  IS  ACAIN  THE  MAXIMUM 
C  RIGHT  FLOOR  I  INDEX  OVER  WHICH  SEAT  CROUP  IS  STANDS.  THE  SEAT  MUST  BE 
C  WITHIN  2  ELMNTS  OF  THE  RT  SIDEWALL  TO  BE  INCLUDED  IN  ISSWRI  AND  ISSWRU 
DO  113  IS* 1>  NSC 
IEND-2.  0*SCWD (15) ♦TOL 
I  END*  I  ONE  (IS)  +-IEND 
I F  < ( I MAX ( 1 )  —  I END  > .  QT .  2 ) CO  TO  100 
IX*UONE( IS) 

C  LOAD  THE  J*1  TO  J*4  MEMBERS  OF  ISSWRI  AND  ISSWRJ  WITH  VALUES  OF  RIGHT 
C  SIDEWALL  INDICES. 

DO  90  J-l.  4 
IX-IX+l 

ISSWRI ( IS, UJ-IFIRR 
90  ISSWRJ( IS, U)*!X 

C  LOAD  THE  J*3  TO  J*10  MEMBERS  OF  ISSWRI  AND  ISSWRJ  WITH  VALUES  OF  RIGHT 
C  SIDEWALL  INDICES. 

I X* JONE ( I S ) +4 
IY-lLSTR+1 
DO  93  J*S,  10 
IY-IY-1 

ISSWRI (IS.  J)-IY 
93  ISSWRJ< IS, J)“IX 

C  LOAD  THE  J-l  TO  J*4  MEMBERS  OF  ISSWLI  AND  ISSWLJ  WITH  VALUES  OF  LEFT 
C  SIDEWALL  INDICES. 

100  IFdONE(IS)  .  CT.  2)C0  TO  113 
I X— JONE  < IS ) 

DO  103  J*l, 4 
IX-IX+1 

ISSWLI  dS,  J)*ILSTL 
103  ISSWLJdS,  J)*IX 
I X— JONE (IS) *4 
IY-IFIRL-1 

C  LOAD  THE  J*3  TO  J*10  MEMBERS  OF  ISSWLI  AND  ISSWLJ  WITH  VALUES  OF  LEFT 
C  SIDEWALL  INDICES. 

DO  110  J*3. 10 
IY-IY+1 

ISSWLI CIS. J)-IY 
110  ISSWLJdS,  J)*IX 
113  CONTINUE 

C  THE  NEXT  8  STMTS  COMPUTE  THE  MINIMUM  DISTANCE  FROM  THE  CABIN  FLOOR  TO 
C  THE  CEILING,  FHMIN.  FT.  IF  A  HAT  RACK  IS  PRESENT  FHMIN  *  FLOOR  TO  HAT 
C  RACK  01 STANCE. 

IF(NPRQJ.  EG.  0)00  TO  117 
FHMIN-Z(IPJLL) 

00  TO  120 
117  FHMIN-ZdCLL) 

I2*ICLL-1 
DO  119  I-ICLR, 12 

IF(Z<I)  CT.  0.  .AND.  Zd).  LT.  FHMIN)FHMIN*Zd) 

119  CONTINUE 

C  THE  NEXT  19  STMTS  COMPUTE  THE  MINIMUM  DISTANCE,  XMN,  AND  MAXIMUM 
C  DISTANCE,  XMX,  OF  A  LINING  SURFACE  FROM  THE  FLOOR  HORIZONTAL  SURFACES 
C  (THOSE  PARALLEL  TO  THE  FLOOR)  WILL  HAVE  XMN*XMX  AND  THE  FLOOR  (SURF  1) 
C  WILL  HAVE  XMN  *  XMX  •  0.  NOTE  THAT  BETTER  VARIABLE  NAMES  WOULD  BE 
C  ZMX  AND  ZMN.  VALUES  ARE  IN  FT 

120  XMN( 1 ) *0 
XMX  ( 1 )  —0. 

DO  129  1-2, LSN 

C  WHEN  THE  Z-COMPONENT  OF  THE  SURF  NORMAL,  VNd.3).  IS  ZERO  SURF  I  IS 
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C  VERTICAL  SO  XMN  IS  NOT  -  XMX 

IF  <  VN (1.3)  ea.  O.  )  SO  TO  121 

C  HORIZONTAL  SURFACE.  XMX  -  XMN  ■  Z,  THE  SURFACE  DISPLACEMENT. 
XMN<I>-Z(I> 

XMX< I >-Z< I ) 

SO  TO  129 

C  TEST  TO  FIND  IF  THIS  IS  A  RISHT  FACING  VERT  SURF.  VN(I.l)  >  0. 

121  IF(VN<I.  1).  ST  0.  >  SO  TO  123 
C  LEFT  FACING  VERTICAL  SURFACE,  VN(I.l)  <  0. 

XMN<I)»XMX(I-1) 

TEMP* I MAX (I>-IMIN<I)+1 
TEMP-TEMP /2.  0 
XMX  < I ) — XMN( I >  +TEMP 
GO  TO  129 

C  RIGHT  FACING  VERTICAL  SURFACE. 

123  XMX  < I ) — XMN< I  — 1 ) 

TEMP-IMAX< I )-IMIN< I )+l 
TEMP-TEMP /2. 0 
XMN  < I ) -XMX  < I ) -TEMP 
129  CONTINUE 

C  LOWEST  EDGE  OF  THE  LAST  LINING  SURFACE,  I-LSN.  MEETS  THE  FLOOR 
C  SO  XMN(LSN)  -  0. 

XMN  ( LSN )  -0. 

RETURN 

END 
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SUBROUTINE  RDIGTN 


C  OBJECTIVE ( S ) 

C  <1)  READ  IN  DATA  DESCRIBING  THE  IGNITION  SOURCE  FIRE. 

C  (2)  INITIALIZE  VARIABLES  CONCERNED  WITH  THE  IGNITION  SOURCE 
C  COMMENTS 

C  (1)  A  LIMITED  CAPABILITY  TO  SET  LINING  SURFACE  ELMNTS  TO  AN  INERT 
C  STATE  BY  INITIALIZING  THEM  TO  STATE  4  IS  INCLUDED. 


COMMON/CNTRL/DELTAT, DELTSP, ECOFLG, IDELT. IDENT(20), IDTPRV. IPEMS. 

1  IPSPR. IPAUX, IRATIO, ISAVE, ISCALE, ITFIN. ITIME. ITIM2. 

2  ITSPRD, NPASS.  TFINAL, IDBUG1 . EPSLN.  MAX ITR.  MAXCUT. 

3  JCBSKP 

COMMON/ FI RES/ AFM < 7 > . ASM <  7 ) .  I STATE ( 120.  IS).  ISTATS<9,  16. 22), 

1  I WORD < 120,  19),  I WORDS (9,  16. 22) , NFLM <  7 ) '  NPYR'7), 

2  RGS  < 10. 7),  RSS<7), TOTGAS  < 10). TOTSEM. TRCF< 10). 

3  TRGS< 10). TRSF, TRSS,  NCE(30).  VITNR,  TOTVIT.  RADFIR  < 30 ) . 

4  ACM ( 7 ) , AF  <  30) , AFI , AEXP, COMB < 30). DQK. FLMLOO).  FSN1. 

3  FSN2, FSN3. GAMMA (30), I BURN. IFC600). ICMNI, IGMNJ, IGMXI. 

6  IGMXJ.  IGNFIR,  IGNIJI2,  100).  IGSN.  !SFIRE<30).  IVMAXOO), 

7  IVMINOO ) ,  1VMN.  IVMX.  IXFIRE,  I  ZONE ( 30 ) . JVMAX ( 30 ) . 

8  JVM  I N  ( 30 )  >  JVMN,  JVMX.  K,  NFE  ( 30  > .  NF  IRES.  NIJC.  NIJSQ. 

9  NPE ( 30 ) • NSFL ( 7 ) . OMEGA ( 30 ) . PDH. P1GN.  RF(20.  4),  RFS(7,  4). 

1  RFWS. R0F< 10, 7> , RGFK ( 10 ) . RHOZ ( 30 ) . RSF ( 7) .  RSFK.  TDQ. 

2  TBURNI,  UZ ( 30) .  YZ(30>. ZB ( 30) .  RHOEFQ,  CHIEFOt 11 >, 

3  FLOWIN,  FLWOUT, TEFG.  IFRVNT , GENRATt 1 1 ) . TDOMTL ( 7 ) , 

4  TP  <  7  > .  TPC  < 7 ) 

COMMON/ GASES/ CH I L (11,  3).  CHIU<  11.  3).  CP.  NGASC 11).  NSPCS.  PAMB. PF<3>. 

1  RHCAM.  RHOLO),  RHOUO),  TAM.  TL<  3) ,  TU(  9),  V0LL(3), 

2  VOLU <  3 ) . ZD<  3) > XTHEN ( 1 20 ) . WMOLEC (11).  TWO< 101 >. 

3  JCOR ( 120 ) 

COMMON/ GMTRY  /  IMATL  ( 20 ) .  IMATS(7>,  IMTLP<4>,  I  MAX  ( 30 ) ,  IMINOO), 

1  I RAY (116),  I RAYS  1 22), JMAX(30), JMIN( 30) ,  LSN.  MAXELI ,  NS. 

2  CH.  CL<4).  CW.  DWS.HSTS.  I ARX  ( 40.  13).  IARY(40.  12),  ICLL. 

3  ICLR,  I  END,  IFIRL,  IFIRR,  ILSTL.  ILSTR,  I0NE(9>, 

4  ISSWLI (9.  10),  ISSWLJ(9.  10),  ISSWR 1(9.  10),  ISSWRJ(9.  10). 

3  ISWSL< 13.  8).  ISWSRt 13. S).  ISTART. NPROJ,  IPJUL,  IPJLL. 

6  IPJUR,  IP  JLR,  JEND.  JONE  ( 9 ) .  JSTART,  NJS.  NSG.  NV,  SGWD ( 9 > , 

7  SL. SWD ( 20 ) , VN ( 20, 3) . VENTH( 24 ) , VENTWf 24 ) . VENTT ( 24 ) , 

8  XMN<  30) ,  XMX  <  30) .  XCOR  ( 9  > ,  YC0R(9>,  ZOO).  SSGWD.  TVSG, 

9  HT1,  HT2.  HT3.  HT 4(10).  NSSTS,  SLSW.  SX  ( 30 ) .  SZ  ( 30 ) . 

1  CNCTNS ( 24 ) , NCOMPS. IFRCMP, FLOW< 24 ) . INT0( 24 ) , VTOTAL ( 4 ) , 

2  FHMIN 

COMMON/MATLS/TABX ( 18, 7, 6). TABY < 18. 7, 6).  NTXG,  FOXI,  RADTAB ( 7 ) ,  RADI. 

1  FOX  <  7 ) i NMATLS, DQI. DQM<  7) , GAMI, GTAB<7>.  ITF(20),  IRAMPT, 

2  ITFCI20). ITFCS ( 7) , ITFS<7>. ITP<20). I TPC ( 20 ) , ITPCS<7). 

3  I TPE ( 20 ) ,  ITPES ( 7 ) ,  ITPS<7>,  QCI,  OP (7),  0TAB<7).  RHOI, 

4  RH0M<7>, RSI, RTAB ( 7  > . RTG I ( 10 ) . UTAB ( 7 > , CNDCTY ( 7 ) ,  XMUI, 

3  XMFI,  TKNS  ( 7 ) ,  TSLOO.  2,  4),  TSP(2,  2.  4),  CPM(7),  WMMTL<7>, 

6  WMIOF. TKNSIN(7) 

COMMON/PARAMS/QRAV, PI.  QTR,  RGAS,  SIGMA,  SOD.  THOU.  TOL,  EC.  EP 
COMMON/RADTN/ALPC.  ABSCF ( 30 ) .  ES.  0C(2) 

C  READ  CARD  TYPE  37,  IGNITION  FUEL  CHARACTERISTICS  AND  AMOUNT. 

READO.  2)  QCI,  GAMI.  WMIGF,  RHOI.  XMUI.  RADI.  XMFI 
C  READ  CARD  TYPE  38,  IGNITION  FUEL  HEAT  RELEASE  RATE,  RAMP- IN  TIME 
READO.  2)  DQI.RAMPT 

C  READ  CARD  TYPE  39,  IGNITION  FUEL  SMOKE  AND  GAS  PRODUCTION  RATES 
READO.2)  RSI .  <  RTG  I  <  I  ) ,  1*1 ,  NTXG  > 

C  CONVERT  GAS  PRODUCTION  RATES  FROM  MICROLBM/ < FT*FT*S>  TO  LBM/ ( FT*FT*S ) 
DO  9  M-l.NTXO 
9  RTGI<M)-RTGI<M)*1  E-6 
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uuuu 


C  READ  CARD  TYPE  40,  INGITION  SURFACE  NUMBER 
READ (5.1)  ISSN 
2  FORMAT  <  8F10.  1) 

C  READ  CARD  TYPE  41,  NUMBER  OF  ION  ELMNTS  ANO  IGN  FIRE  BASE  PERIMETER. 
READ (S. 4)  NIJSa,  PIGN 
4  FORMAT ( 15, F10. 1 ) 

1  FORMAT (215) 

C  SET  THE  FLAG  I BURN  TO  1  TO  SHOW  THAT  THE  IGN  FIRE  IS  BURNINCi  COMPUTE 
C  THE  TOTAL  BASE  AREA  OF  THE  FIRE,  AFI;  AND  THE  BURNING  TIME,  TBURNI.  IN 
C  SECONDS. 

I BURN" 1 

AF I »N I JSG*SQD*SGD 
IRAMPT  ■  1000.  *  RAMPT 

TBURNI  -  0.  5  *  RAMPT  *  XMFI  /  (AFI  *  RHOI  *  XMUI ) 

C  SET  THE  NUMBER  OF  FLAMING  ELMNTS  ON  THE  IGN  SURF  TO  THE  NUMBER  OF  IGN 
C  FIRE  ELMNTS.  SET  ITFCP  FOR  LATER  PACKING.  AND  COMPUTE  THE  OXYGEN 
C  CONSUMPTION  FACTOR  FOR  THE  IGN  FIRE.  ADJUST  THE  GROSS  HEAT  OF  COMBUS- 
C  TION  OF  THE  IGN  SRC  FUEL  BY  THE  RADIATION  LOSS  FACTOR. 

NFEUGSN1-NIJSQ 
ITFCP-TBURNI+  00001 
FOX  I -OC I /GAM I 
GC  I— QC I  * ( 1 .  -RADI) 

COMMPUTE  THE  INITIAL  RATES  OF  HEAT,  SMOKE,  AND  CAS  GENERATION  AND 
OXYGEN  CONSUMPTION  FOR  THE  IGNITION  SOURCE  FIRE 

FCTR  -  1.  /  <  1.  ♦  RAMPT  /  DELTAT  ) 

DO I  -  FCTR  *  DGI 
RSI  -  FCTR  *  RSI 
DO  3  M  -  1  ,  NTXG 
3  RTGI  (M)  -  RTGKMl  *  FCTft 
FOX  I  -  FOX  I  *  FCTR 
C 

C  THE  NEXT  9  STMTS  SET  UP  THE  I STATE  OR  I STATS  ARRAY  MEMBERS  FOR  IGN  SRC 
C  ELEMENTS  AFTER  THE  I  AND  J  INDICES  OF  EACH  ELEMENT  IS  READ 
DO  10  KK-l.NIJSG 

C  READ  CARD  TYPE  42,  IGN  SRC  FIRE  ELEMENT  I  AND  J  INDICES.  THESE 
C  INDICES  ARE  STORED  IN  THE  ARRAY  IGNIJ  FOR  LATER  USE. 

READ( 3r 1 >  ( I ON I J ( I , KK ) , I - 1 , 2 > 

II-I0NIJ<1.  KK> 

JJ-IQNI J(2,  KK) 

C  IF  THE  IQNITION  SURFACE  IS  A  SEAT,  GO  TO  STMT  5  TO  SET  UP  1ST ATS. 

IF<  ICSN.  GT.  LSN)  GO  TO  5 

C  IGNITION  SURFACE  IS  A  LINING  SURFACE.  SET  UP  ISTATE  FOR  THIS  I  AND  J. 
ISTATEUI.  JJ)-ITFCP*100+33 
GO  TO  10 
3  IS-IGSN-LSN 

ISTATSdS.  II,  JJ> -ITFCP*  100*33 
10  CONTINUE 

C  THE  NEXT  10  STMTS  SCAN  THE  ARRAY  IGNIJ  TO  FIND  THE  MAXIMUM  AND  MINIMUM 
C  VALUES  OF  THE  IGN  SRC  ELMNT  I  AND  J  VALUES  AND  SAVE  THEM  IN  THE 
C  VARIABLES  IGMNI.  ETC.  THESE  ARE  USED  LATER  TO  ISOLATE  THE  ION  SRC 
I OMNI -200 
IGMXI  — 1 
IOMNJ-200 
IGMXJ— 1 

DO  IS  KK-l.NIJSG 

IF< 1GN1 J< 1.  KK).  LT  I OMNI  )  1  OMNI -I  ONI J<  1 .  KK > 

I F ( I ON I J ( 1 , KK )  CT.  IGMXI )  IGMX I- IGNI J ( 1 , KK ) 

IF(I0NIJ<2. KK)  LT  IGMNJ)  I GMNJ-I GNI J ( 2, KK ) 

IF< IGNI J<2. KK)  GT  IOMXJ)  IGMX J-IGNI J< 2, KK ) 


n  ci  non  o  o  o  o  o 


IS  CONTINUE 

C  READ  CARD  TYPE  43,  NUMBER  OF  ELMNT3  TO  BE  SET  TO  CHARRED  (INERT)  STATE 
READO,  1)  NIJC 
IF(NIJC.  EQ.  0>  50  TO  30 
DO  20  KK-1, NIJC 

C  READ  CARD  TYPE  44,  I  AND  J  INDICES  OF  CHARRED  ELEMENTS 
READO.  I)  I,  J 

C  FIND  THE  SURFACE  ON  WHICH  THIS  ELMNT  LIES  AND  INCREASE  NCE,  THEN 
C  SET  THE  VALUE  OF  ISTATE(I-J)  TO  INDICATE  THIS  ELMNT  IS  INERT. 

II-IRAYCI) 

NCEun-NCEun+i 

CALL  CVOUTCI,  J.  1,  1ST,  ISTP,  ITFCP  > 

I STATE! I, J>-44 
20  CONTINUE 
C 

30  CONTINUE 

READ  CARD  TYPE  45.  VENT  NUMBER  AT  WHICH  THERE  IS  AN  EXTERIOR  FIRE 
IF  THERE  IS  NO  SUCH  FIRE,  RETURN 

READO.  1)  IFRVNT 

IF< IFRVNT  EO.  0)  RETURN 

READ  CARD  TYPE  46.  DESCRIPTION  OF  FIRE  GASES  AND  FLOW  RATES 

READO.  35)  RHOEFC.  TEFG,  FLOWIN.  FLWOUT 
35  FORMAT ( BF 1 0.  1 ) 

READ  CARD  TYPE  47.  COMPOSITION  OF  EXTERIOR  FIRE  GASES 
READO.  35)  (CHIEFG(N),  N-l,  NSPCS> 

C 

RETURN 

ENO 
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subroutine  echo 


OBJECTIVE! S) 

(1)  ECHO  INPUT  DATA  FOR  ERROR  CHECKING 
COMMENTS 

(1)  '■ECOFUS'1  ■  0  RESULTS  IN  A  RETURN  WITH  ONLY  TITLE  AND  CASE  ID 
PRINTED 

!2 )  MOST  WRITE  STMTS  ARE  SELF-EXPLANITORY.  SO  FEW  COMMENTS  HAVE  BEEN 
ADDED  FOR  THEM. 


COMMON/CNTRL/DELTAT, DELTSP,  ECOFLG, IDELT. IDENTC20). IDTPRV. IPEMS. 

1  IPSPR .  IPAUX,  IRATIO,  ISAVE,  ISCALE.  ITFIN.  ITIME.  ITIM2. 

2  1 TSPRD, NP ASS* TFINAL.  IDBUG1,  EPSLN, MAXITR, MAXCUT. 

3  JCSSKP 

COMMON/ FI RE S/AFM ( 7 ) »  ASM! 7 ) ,  ISTATE! 120.  15>.  ISTATS(9,  16. 22), 

1  IWORD! 120. 15). I WORDS ( 9. 16. 22). NFLM ! 7 ) . NPYR!7), 

2  RGS! 10. 7) , RSS  <  7 ) , TOTGAS! 10). TOTSEM, TRGF! 10), 

3  TRGS! 10), TRSF. TRSS,  NCE130).  VITNR.  TOTVIT,  RADFIR (30) . 

4  ACM ! 7 ) . AF ! 30 ) . AF I , AEXP, COMB (30). DQK. FLML ( 30 ) , FSN 1 . 

3  FSN2,  FSN3.  GAMMA  I  30 ) .  I  BURN.  IF(600>.  IGMNI.  IGMNJ.  IGMXI. 

6  IQMXJ, IONFIR, IGNIJ!2. 100). IGSN. ISFIRE(30). IVMAXI30). 

7  1 VM IN! 30 ) ,  IVMN.  IVMX,  IXFIRE,  I  ZONE < 30 > , JVMAX 1 30 > . 

8  JVMIN ! 30 )  ,  JVMN.  JVMX.  K.  NFE ! 30 ) .  NFIRES.  NIJC.  NIJSQ. 

9  NPE  <  30 ) .  NSFL  <  7 ) .  OMEGA  130),  PDH,  PICN.  RF(20.  4).  RFS(7.  4), 

1  RFWS. RCF< 10, 7). RGFK! 10),  RH0Z(30),  RSFI7),  RSFK.  TDQ. 

2  TBURN I , UZ  <  30  > . YZ  <  30 ) .  ZB  1 30) , RHOEFC. CHIEFGl 11 >, 

3  FLOW IN. FLWOUT, TEFG.  IFRVNT , GENRAT (11), TDQMTL ! 7 ) , 

4  TP  !  7 ) ,  TPC  <  7  > 

COMMON/GASES/CHIL! 11.  5),  CHIU! 1 1,  3). CP. NGAS ! 1 1 > ,  NSPCS.  PAMB, PF!3>, 

1  RHGAM,  RH0LI3).  RHOUO).  TAM,  TL15).  TUC3).  VOLL(S), 

2  VOLU <  3 ) . ZD! 3),  XTHEN! 120). WMOLEC ! 1 1 > , TWO! 101 ) . 

3  JCQR ! 1 20 ) 

COMMGN/GMTRY/ IMATL  <  20  > ,  IMATS!7>,  IMTLPI4),  IMAXI30),  IMIN!30), 

1  IRAY! 116). IRAYS!22), JMAX130). JMIN! 30 ) . LSN, MAXELI. NS, 

2  CH.  CL  i  4 ) ,  CW,  DWS.  HSTS.  IARX140,  13).  IARY!40.  12),  ICLL. 

3  ICLR, IEND, IFIRL, IFIRR, ILSTL. ILSTR, I0NE19), 

4  ISSWLI <9, 10). ISSWLJ! 9, 10). ISSWRI (9, 10). ISSWRJ!9. 10). 

3  ISWSL (13,8),  ISWSR113. 8).  ISTART, NPROJ.  IPJUL,  IPJLL. 

6  IPJUR.  IP JLR,  JEND,  JONE ! 9)  .  JSTART ,  NJS.  NSG.  NV,  SGWD! 9 ) , 

7  SL, SWD ( 20 > . VN ! 20 , 3). VENTH124) . VENTU!24),  VENTT ! 24 ) , 

8  XMNI30). XMX ( 30 ) , XC0RC9).  YC0RI9).  Z!30>.  SSCWD,  TVSG. 

9  HT1,  HT2,  HT3,  HT4 1 10) ,  NSSTS,  SLSW,  SX  !  30) .  SZ  !  30 ) . 

1  CNCTNSI24), NCOMPS. IFRCMP, FL0WI24), INT0I24). VT0TAL!4), 

2  FHMIN 

COMMON/MATLS/TABX! 18, 7, 6). TABY! 18.  7. 6). NTXG,  FOXI,  RADTAB ( 7 ) ,  RADI. 

1  FOX ( 7 ) . NMATLS, DQI , DQM ( 7 ) , GAMI, GTAB ( 7 ) , ITF!20>, IRAMPT, 

2  ITFCI20), ITFCSI7), ITFS17), ITP!20). ITPCI20), ITPCS!7), 

3  ITrE(20). ITPES ( 7 ) , ITPS(7>, QCI, QP!7), QTABI7). RHOI, 

4  RHCM17) . RSI. RTAB<7) , RTG I ! 10) . UTAB!7>, CNDCTY!7>, XMUI. 

3  XMF  I.  TKNSI7),  TSL!30.  2,  4).  TSP12,  2,  4),  CPM17).  WMMTLI7), 

6  WMIGF, TKNSINI7) 

COMMON/PAR  AMS /GRAV.  PI,  QTR,  RGAS.  SIGMA,  SOD,  THOU.  TOL.  EC,  EP 
COMMON/RADTN/ALPC, ABSCFi30>,  EB,  0C!2) 

INTEGER  ECOFLG 


WRITE  THE  RUN  ID 


WRITE (6. 8) ! I DENT  <  M ) ,  M- 1 , 20 ) 
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8  FORMAT ( IH1 / /4JX .  14HPRQGRAM  DACFIR,  SX,  22HVER3I0N  3.0 — 1  APR  81  //33 
IX, 61HC0MPUTER  SIMULATION  OF  FIRE  WITHIN  A  TRANSPORT  AIRCRAFT  CABIN 
2//26X, 10HDATA  CASE  , 5X.20A4) 

IF  (ECOFLG.  LE.  0) RETURN 
C 

C  WRITE  THE  TIME  AND  NUMERICS  CONTROL  DATA 
C 

WRITE<6.  10)  DELTAT,  TFINAL, EPSLN, MAX ITR, MAXCUT,  JCBSKP,  IRATIO,  ISCALE 


o  o  o  o  o  o  o  o  n  o  r>  non  non  oooo  ooo 


10  FORMAT; //SIX,  27HINPUT  SUMMARY  (  ECOFLG  »  1 ) /2X, 20HPRQGRAM  CONTROL 
♦DATA//3X, 18HTIME  STEP  (SEC)  -  ,  F7  3,2X.18HST0P  TIME  (SEC)  -  ,  F8.  3, 

♦  2X,  1SHC0NV  TOLERANCE  *  ,  FS.  6, 2X,  17HMAX  ITERATIONS  «  ,  1 3.  2X ,  1 9HMAX 

♦  STEP  CUT  LVL  »  ,  I3//3X , 22HJAC0B I AN  SKIP  CNTRL  ■  -  12,  2X,  34HPASS  RA 
*TIQ  FOR  FLAME  SPRD  CALCS  »  ,  IS, 2X,  26HSCALE  FACTOR  EVAL  CNTRL  »  , 
*IS> 

WRITE  OUTPUT  CONTROL  DATA 

IIPEMS  -  IPEMS  /  1000 
IIPSPR  «  IPSPR  /  1000 
I IPAUX  -  IPAUX  /  1000 
WRITE(6.  11)  IIPEMS, IIPSPR, I IPAUX 

11  FORMAT ( /3X,  36HCAB IN  ATMS  DATA  PRNT  INTRVL  (SEC)  -  ,  I  3.  2X , 36HFLAME 
♦SPRD  DATA  PRNT  INTRVL  (SEC)  »  .  1 3,  2X ,  35HAUX ILLARY  DATA  PRNT  INTRVL 

♦  ( SEC )  •  .IS) 

WRITE' THE  CABIN  HEIGHT,  WIDTH,  NUMBER  OF  COMPARTMENTS.  AND  COMP.  NO. 
FOR  ANY  INTERIOR  FIRES. 

WRITE(6,  12)  CH.  CW,  NCOMPS,  IFRCMP 

12  FORMAT < /2X,  19HCAB IN  GEOMETRY  DATA//3X,  29HMAX  HEIGHT  AT  CEILING  (FT 

♦  )  ■  ,  F6.  1,  2X. 22HWIDTH  AT  FLOOR  (FT)  »  , F6.  1, 2X. 25HNUM8ER  OF  COMPAR 
♦TMENTS  -  ,  12, 2X,  19HFIRE  COMPARTMENT  »  ,  12) 

WRITE  THE  COMPARTMENT  LENGTH(S) 

WRITE (6,  13)  < I, CL< I ),  I»l,  NCOMPS) 

13  F0RMAT(/3X. 26HC0MPARTMENT  LENGTH(S)  (FT), 

♦4(8H  NO  -  ,  12-  7H  LTH  -  .  FS.  1 )  ) 

WRITE  THE  NUMBER  OF  SURFACES,  NUMBER  OF  SEAT  GROUPS,  AND  CEILING  DEFN. 
WR ITE ( 6,  14)  LSN,  NSO.  ICLL,  ICLR 

14  FORMAT ( /3X, 2SHNUMBER  LINING  SURFACES  -  ,  1 3 , 3 X ,  2 1 HNUMBER  SEAT  GROUP 
♦S  -  ,  13,  3X,  23HLEFT  CEILINO  SURFACE  -  ,  12, 3X, 24HR ICHT  CEILING  SURFA 
♦CE  »  , 12) 

WRITE  THE  LINING  SURFACE  DESCRIPTIONS. 

WRITE (6, 19) 

15  FORMAT (/3X.  19HLININC  SURFACE  DATA//SX,  10HSRF  NUMBER,  3X,  10HW I DTH  (F 
♦T),  3X.  13HDSPLCMNT  ( FT > , 3X,  19HN0RMAL  VCTR  < I , J, K ) , 3X .  1 8HMATER I AL  TY 
♦PE  CODE/) 

DO  16  I-l.LSN 

16  WRITE(6,  17)  I,  SWD(  I  ).  Z(  I ),  (VN<  I,  U>,  U-l,  3).  IMATL(  I  ) 

17  FORMAT ( 9X,  12,  11X,  FS.  1, 9X,  F9.  1,  3X,  F6.  3-  IX,  F6.  3,  IX,  F6.  3,  10X.  12) 

WRITE  THE  SEAT  GROUP  DATA 
WRITE  ( 6,  18) 

18  FORMAT! 1HI///3X,  1SHSEAT  GROUP  DATA//4X.  2SHGR0UP  NUMBER  WIDTH  (FT 

♦  ),  3X,  39HC0RNER  POINT  COORDINATES  (X,Y)  (FT)/) 

DO  19  1*1 , NSG 

19  WRITE <6. 20) I. SGWD( I ) .  XCOR(I ), YCOR ( I > 

GO  FORMAT  (  9X .  12.  10X.  FS.  1.  17X.  FS.  1, 3X.  FS  1  > 

WRITE  THE  SEAT  SURFACES  MATERIAL  CODES 
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non  o  non  non  non  o  non  noon 


WRITE<6.21>  C  IMATS!  I  ).  1  =  1. 7) 

21  FORMAT! /4X, 45HSEAT  SURFACE  MATERIAL  CODES  SURF /CODE  1  /  , 12. 7H 

*  2  /  .I2.7H  3  /  .12.  7H  4  /  ,  12.  7H  5  /  .  12,  7H  6  /  ,  12,  7H 

*  7  /  , 12) 

WRITE  THE  SEAT-TO-SIDEWALL  SPREAD  PARAMETERS  AND  PARTN  MATL  CODES, 

AND  NUMBER  OF  VENTS. 

WRITE <6, 22)  DWS. RFWS.  < IMTLP< I ) .  I  —  1 ,  NCOMPS) . NV 

22  FORMAT! /3X, 31HSEAT-T0-SIDEWALL  SPREAD  PARAMETERS  DISTANCE  (FT)  m  , 
*F5. 1.2X, 16HRATE  (FT/SEC)  »  ,  F5.  1//3X, 42HPARTITI0N  MATERIAL  CODES  C 
♦OMP/CODE  1  /  .12, 7H  2  /  . 12, 7H  3  /  , 12. 7H  4  /  , I2//3X, 
♦53HVENT  DATA  NUMBER  OF  VENTS  (TOTAL  ALL  COMPARTMENTS)  -  ,  13) 

WRITE  THE  DATA  FOR  EACH  VENT 

WRITE ( 6, 23) 

23  FORMAT ( /4X, 1 1HVENT  NUMBER, 2X, 29HC0NNECTS  CMPRTMNT  TO  CMPRTMNT, 2X, 
♦8HT0P  (FT), 2X, 11HHEIGHT  (FT ) , 2X , 1 OHWIDTH  ( FT ) , 2X . 1 4HSET  FLOW  (CFM) 
*,  2X,  20HINT0  CMPRTMNT  NUMBER/) 

DO  24  K-l. NV 

11  ■  CNCTNS(K)  /  10. 

12  »  CNCTNS ( K )  -  II  *  10 

24  WRITE (6. 23 )  K, II, 12. VENTT(K), VENTH(K), VENTW(K), FLOW(K) , INTO(K) 

23  FORMAT  ( 8X.  12,  13X,  12,  10X.  12,  7X,  F3.  1,  3X.  F3.  1,  8X,  F3.  1.  7X.  F8.  2, 

*13X, 12) 

START  A  NEW  PACE  AND  WRITE  THE  NUMBER  OF  MATLS  AND  TRACE  CASES 
WRITE (6. 26 ) NMATLS.  NTXG 

26  FORMAT ( 1H1//2X, 14HMATERIALS  DATA/ /3X. 22HNUMBER  OF  MATERIALS  =  . 

*12. 3X. 30HNUMBER  OF  TRACE  CAS  SPECIES  -  , I2//3X, 11HGAS  SPECIES, 

*6X. 6HSYMB0L.  3X,  1 6HM0LEC UL AR  WEIGHT) 

WRITE  GAS  SPECIES  AND  MOLECULAR  WEIGHTS 

WRITE  <  6, 27) ( I. NGAS ( I ) , WMOLEC ( I ) .  1*1, NSPCS) 

27  FORMAT (  /3X,  12,  14X.  A4,  9X,  FB.  3) 

WRITE  COMBUSTION  PARAMETERS 
WRITE ( 6. 28) 

28  FORMAT ( /3X , 21HC0MBUST I  ON  PARAMETERS/ /4X, 4HMATL, 2X, 

♦18HHEAT  OF  COMBUSTION. 2X, 21HST0ICH  OXY/FUEL  RATIO. 

•2X. 9HM0LEC  WGT . 2X, 18HPYR0LYZATE  DENSITY, 2X. 

♦19HPYR0LYZATE  VELOC I TY, 2x, 1 7HRAD I ATED  FRACTION/ 13X, 

*9H( BTU/LBM) . 46X.  UH(LBM/CU  FT). 10X. 8H(FT/SEC) ) 

WRITE (6, 29) ( I, GTAB ( I ) .  GTAB ( I ) ,  WMMTL ( I ) .  RTAB ( I ) ,  UTAB ( I ) ,  RADTAB ( I ) , 

*  1-1, NMATLS) 

19  FORMAT!  /3X,  12.  4X,  F10.  3.  14X,  FS.  3,  11  X,  F7  3,  7X,  FB.  3,  12X,  F8.  3,  12X, 

*F8.  3) 

WRITE  SMOLDERING  STATE  DATA 

NXX  *  3  *  NTXG 

WRITE ( 6,  30) (NGAS!  I ),  1-6, NXX) 

30  FORMAT! /3X.  21HSM0LDER INC  STATE  DATA//4X,  4HMATL,  2X,  12HSMLDC  TRSHLD. 
*2X,  16HTRNSTN  TO  SMLDRG, 2X ,  1 4HTRNSTN  TO  CHRD. 2X,  1 4HSMK  PRODN  RATE, 
*9X,  36HGAS  PRODUCTION  RATES  (LBM/SG  FT-SEC  )  ,'9X,  1  3H(  BTU/SG  FT-SEC > , 
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*9X,  SH(SEC).  13X,  5H  (  SEC  ) ,  SX.  1  OH  (PART /SEC  ) ,  5<7X,  A4  >  /  ) 

C 

DO  31  1*1/ NMATLS 

31  WRITE  (6,  32)  1/  QP  (  I ) .  TP  (  I ) ,  TPC  ( I  >  >  RSS(  I ),  (RGS(  IG,  I),  IO-1,  NTXG ) 

32  FORMATOX,  12-  4X,  F8.  3.  SX,  F8.  3.  10X,  F8.  3-  7X,  F8.  3,  6X,  5(E10.  4,  IX)  ) 

C 

C  WRITE  FLAMING  STATE  DATA  -  ORDER  IS  (1>  HORIZONTAL  FLAME  SPREAD  RATE. 

C  (2)  UPWARD  FLAME  SPREAD  RATE,  (3)  DOWNWARD  FLAME  SPREAD  RATE, 

C  (4)  TIME  TO  IGNITE,  (5)  HEAT  RELEASE  RATE,  (6)  SMOKE  RELEASE  RATE, 

C  < 7 )  SMOLDERING  LAG  TIME,  (8)  TIME  TO  BURN  OUT,  (9)  RELEASE  RATE  OF 
C  THE  FIRST  TRACE  GAS,  (10)  RELEASE  RATE  OF  THE  SECOND  TRACE  GAS.  . 

C  (13)  RELEASE  RATE  OF  THE  FIFTH  TRACE  GAS.  START  ON  NEW  PAGE 
C 

WRITE (6, 33) 

33  FORMAT! 1H1//3X, 1SHFLAMING  STATE  DATA, 4X, 27HALL  FLUXES  IN  BTU/SG  FT 
*— SEC//4X, 47HH0RI ZONTAL  FLAME  SPREAD  RATE  -  VALUES  IN  FT/SEC) 

WRITE < 6,  34) 

34  FORMAT (  /9X.  4HMATL,  2X,  6<4HFLUX,  4X,  5HVALUE,  6X  >  ) 

WRITE  <6,  39)  (  I.  ( TABX  (l,  I,  IX  ),  TABYt  1,  I,  IX),  IX-1,  6) ,  1-1,  NMATLS) 

39  FORMAT!  /SX,  12,  3X,  F6.  2,  2X,  F8.  4.  3X,  F 6.  2,  2X,  F8.  4,  3X,  F6.  2,  2X,  F8.  4, 

*  3X.  F6.  2,  2X,  FB.  4,  3X,  F6.  2,  2X,  F8.  4.  3X,  F6  2,  2X,  F8.  4) 

C 

WRITE <6, 36) 

36  FORMAT ( /4X, 43HUPWARD  FLAME  SPREAD  RATE  -  VALUES  IN  FT/SEC) 

WRITE (6, 34) 

WRITE  (6,  39)  ( I,  (TABX  (2,  I,  IX),  TABY  ( 2,  I,  IX),  IX-1.6),  1*1.  NMATLS) 

C 

WRITE (6, 37) 

37  FORMAT < /4X,  49HD0WNWARD  FLAME  SPREAD  RATE  -  VALUES  IN  FT/SEC) 

WRITE!  6.  34) 

WRITE (6,  39)  ( I,  (TABX  (3.  I,  IX),  TABY (3,  I,  IX),  IX*1, 6),  ’*1,  NMATLS) 

C 

WRITE ( 6,  38) 

38  FORMAT < /4X,  34HTIME  TQ  IGNITE  -  VALUES  IN  SECONDS) 

WRITE <6. 34) 

WRITE!  6.  39)  ( I,  (TABX  <4,  I,  IX).  TABY  (4,  I ,  IX  ) ,  I X* 1 , 6 ) ,  1*1,  NMATLS) 

C 

WRITE ( 6,  39) 

39  FORMAT! /4X.  43HHEAT  RELEASE  RATE  -  VALUES  IN  BTU/SQ  FT-SEC ) 

WRITE <6, 34) 

WRITE  (6,  39)  ( I.  (TABX  (9,  I,  IX),  TABY  (9.  I ,  I X ) ,  I X- 1 ,  6) ,  1-1 ,  NMATLS) 

C 

WRITE (6. 40) 

40  FORMAT ( /4X, 90HSM0KE  RELEASE  RATE  -  VALUES  IN  PARTICLES/SQ  FT-SEC) 
WRITE (6.  34) 

WRITE!  6,  39)  (  I,  (TABX!  6,  I.  IX).  TABY  (6,  I,  IX),  IX*  t,  6),  1*1 ,  NMATLS) 

C 

WRITE (6, 41) 

41  FORMAT! /4X, 39HSM0LDER ING  LAG  TIME  -  VALUES  IN  SECONDS) 

WRITE (6,  34) 

WRITE! 6,  39)  (  I,  (TABX!?,  I,  IX),  TABY (7,  I,  IX),  I X  — 1 ,  6),  1*1,  NMATLS) 

C 

WRITE ( 6,  42) 

42  FORMAT ( /4X. 36HTIME  TO  BURN  OUT  -  VALUES  IN  SECONDS) 

WRITE (6.  34) 

WRITE  (6,  39)  (  I.  (TABX  (8,  I,  IX),  TABY  (8,  I ,  I X  ) .  I X*  1 .  6 ) ,  I*  l ,  NMATLS) 

C 

NXY  -  S  *  NTXG 

DO  46  UJ  *  9. NXY 

JUU  -  UJ  -  3 

WRITE (6, 43 )  NGAS(JJJ) 
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43  FORMAT ( /4X,  16HRELEASE  RATE  OF  ,  A4,  26H  -  VALUES  IN  LBM/SQ  FT-SEC) 
WRITE  I  6,  44) 

44  FORMAT </3X,  4HMATL,  IX.  o(4HFLUX,  3X,  3HVALUE, 6X ) ) 

WRITE!  6.  43)  <  I,  ( TABX  (  JU.  I,  IX),  TABY  <  JJ.  I,  IX  ) ,  IX-1, 6).  1-1.  NMATLS ) 

43  FORMAT  (  /3X,  12,  2X,  F6.  2,  IX,  Ell  4.  2  X,  F6  2,  IX.  Ell.  4.  2X.  F6.  2,  IX,  Ell.  4. 

*  2X,  F6.  2,  IX,  Ell.  4,  2X,  F6.  2,  IX,  Ell  4,  2X.  F6.  2,  IX,  Ell.  4) 

46  CONTINUE 

WRITE  BULK  THERMAL  PROPERTIES  OF  MATERIALS 
WRITE (6, 47) 

47  FORMAT </3X, 31 HTHERMAL  PROPERTIES  OF  MATERIALS// 

*4X, 4HMATL,  3X,  13HHEAT  CAPACITY,  3X,  11HAVG  DENSITY,  3X,  14HLININC  SURFA 
♦CE. 3X, 13HTHERML  CONDCT, 3X, 1 OH INSULATION/ 12X, 1 1H< BTU/LBM*R ) , 3X, 
♦14HL3M/ ( FT *FT *FT ) . 3X, 13HTHICKNSS  (FT),4X, 14HBTU/ (FT-SEC -R ). 3X, 

* 1 3HTH I C KNSS  (FT)) 

WRITE (6, 48) (M, CPM(M) , RHOM(M) , TKNS(M), CNDCTY(M) , TKNSIN(M) , 

*  M-l,  NMATLS) 

48  FORMAT (7C/3X,  12, S(4X,E13.  6)) > 

WRITE  AMBIENT  TEMPERATURE  AND  PRESSURE 
WRITE! 6.  49 ) TAM,  P AMB 

49  FORMAT (/ 16X, 26HAMB I ENT  TEMPERATURE  (R)  -  , F10. 3, 11X, 

*  31HAMB IENT  PRESSURE  (LBF/SQ  FT)  »  . FIO.  3) 

WRITE  IGNITION  FUEL  CHARACTERISTICS 

WRITE (6,  SO ) QC I ,  GAMI,  WMIOF,  RHOI.  XMUI,  RADI,  XMFI 

30  FORMAT ( 1H1//3X,  29HIGNITI0N  FUEL  CHARACTERISTICS// 

*4X, 28HHEAT  OF  COMBSTN  (BTU/LBM)  -  , FIO. 4. 18X, 24HST0ICH  OXY/FUEL  RA 
♦TIO  ■  . FIO. 4//23X, 19HM0LECULAR  WEIGHT  -  , FIO. 4, 9X, 

♦33HVAP0R  DENSITY  (LBM/ (FT*FT*FT> )  »  , FIO.  6//4X, 3BHMASS  BURNING  RAT 
*E  < LBM/ ( FT *FT *SEC ) )  »  ,  FIO.  7, 7X, 23HFLAME  RADIATION  FACTOR  ■  , 

♦FIO.  4//13X.  29HT0TAL  AMOUNT  OF  FUEL  (LBM)  -  , FIO.  4) 

RAMPT  ■  IRAMPT  /  1000. 

WRITE ( 6, 31 )DQI, RAMPT, RSI. (RTGI(I), I-l.NTXG) 

31  FORMAT (/ 12X,  3BHHEAT  RELEASE  RATE  <  BTU/ ( FT ♦FT *SEC ) )  -  , 

♦FIO.  4.  27X, 21HRAMP-IN  TIME  (SEC)  -  . F 10.  4/ /4X , 38HSMK  PROD  RATE  (PAR 
♦TCLS/ ( FT #FT 4SEC ) )  -  , El 3.  6//4X, 31HGAS  PROD  RATE  ( LBM/ ( FT ♦FT ♦SEC ) ) / 
♦4X.  3(E13.  6,  8X)  ) 

WRITE ( 6, 32) IGSN, NIJSQ, P1GN 

32  FORMAT! //3X, 16HIGNTN  SURF  NO  »  , 12, 7X, 21HN0  OF  IGNTN  ELMNTS  -  .13, 
*7X, 33HIGNTN  FIRE  BASE* PERIMETER  (FT)  -  , FIO. 4) 

SHOW  THE  ION  SRC  LOCATION  THRU  THE  IGN  SRC  ELMNT  INDICES. 

WRITE (6.  33) ( IGNI J( 1, KK  > ,  I GNIJ (2. KK ) , KK-1,  NIJSQ) 

33  FORMAT! //20X.  34HELEMEMTS  AFLAME -  I  J/ (44X,  12. 6X,  12) ) 

WRITE  MESSAGE  IDENTIFYING  SURFACE  NUMBERING  SEQUENCE. 

33  WRITE ( 6,  60)  ICLR,  ICLL,  LSN,  JMAX<  1 ) 

60  FORMAT! //20X,  79HL00K INC  FROM  THE  FRONT  OF  THE  CABIN  TOWARD  THE  RE 

1AR, THE  FLOOR  IS  SURFACE  NO  1, /20X, 69HTHE  LWR  RGT  SIDEWALL  IS  SURFA 
2CE  NO  2, THE  RGT  SIDE  CEILING  SURFACE  IS  . 12- 3H,  THE/20X, 29HLEFT  SI 
ODE  CEILING  SURFACE  IS  ,  12,  41H,  AND  THE  LWR  LEFT  SIDEWALL  IS  SURFACE 
4  NO  . I2//20X, 79HTHE  ELEMENTS ( IN  THE  I  DIRECTION) ARE  NUMBERED  IN  TH 


A-45 


SE  SAME  MANNER  AS  THE  SURFACES/ SOX. 57HTHE  FRONT  MOST  ELEMENT  IS  J«l 
6. THE  REAR  MOST  ELEMENT  IS  Jm,  IS) 

C 

C  WRITE  SURFACE  DESCRIPTIONS  BY  SURFACE  NUMBER. 

C 

WRITE! 6. 70) < I. SWD< I ). 2! I). (UN t I , J) . J-l . 3 > , IMATLC I), IMIN( I > , I MAX ( I ) 
1,  XMN(I),  XMX(I),  I-l.LSN) 

70  FORMAT! // 13X.  103HSURFACE  DATACEXCL  SEATS) -  SURF  NO  WIDTH,  FT 

1HCT.FT  UNIT  NORM  MATL  TYPE  IMIN  IMAX  XMN  XMX/ ( 4SX ,  12.  3 
2X.  FS.  I,  6X.  F5.  1.  3F5.  1.  AX,  11,  9X,  12,  4X,  12,  IX,  2F5.  1 )  ) 

C 

C  WRITE  SEAT  CROUP  IDS,  DIMENSIONS,  AND  LOCATIONS. 

C 

WRITE (6, BO) < IS, S«WD< IS), XCOR(IS). YCOR! IS). IS- l, NS6 ) 

80  FORMAT! 1H1/10X, 17HSEAT  GROUP  DATA — , 29X, 8HL0CATI0N/30X. 39HST  GRP  N 
10  WIDTH,  FT  XCOR,  FT  YCOR,  FT/  ( 35X,  1 1 ,  7X.  F5.  1 ,  SX,  FS  1 .  SX,  FS  1  >  ) 

C 

C  IDENTIFY  MATERIAL  OF  EACH  SEAT  GROUP  SURFACE.  ALL  SEAT  GROUPS  ARE  OF 
C  IDENTICAL  CONSTRUCTION. 

C 

WRITE (6, 90) ! IMATS(M),  M— 1,  7) 

90  FORMAT! / 13X.  31HEACH  SEAT  GROUP  HAS  7  SURFACES: , 4X.  7HSURF  NO,  6X.  7HS 
1URFACE. 6X. 9HMATL  TYPE/33X,  19H1  CUSHION  BOTTOM.  8X.  1 1 /33X, 22H2 
2  LWR  REAR  BACKREST, SX,  1 1/S3X.  22H3  UPR  REAR  BACKREST, 5X,  II /S3X, 2 
30H4  TOP  OF  BACKREST, 7X,  11/ S3X, 22HS  FRONT  OF  BACKREST, SX,  1 1 /S 
43X,  16H6  CUSHION  TOP,  1 IX,  1 1/S3X, 18H7  CUSHION  FRONT. 9X,  1 1 > 

C 

C  THE  NEXT  13  STMTS  PRODUCE  THE  OVERHEAD  VIEW  OF  THE  SEAT  GROUPS 
C  SUPERIMPOSED  ON  THE  FLOOR. 

C 

11- IMAX! 1 ) 

12- CW+T0L 
IX-I2+I 
WRITE ( 6. 100) 

lOO  FORMAT! /1SX,  83H0VERHEAD  VIEW  OF  SEATS  SUPERIMPOSED  ON  FLOORINON-ZE 
1RO  INTEGER  IS  SEAT  GROUP  NUMBER ) ) 

DO  US  N-l,  12 
IX-IX-1 

WRITE <6,  110)11,  ( I ARX ( L.  IX),L-1.  ID 

110  F0RMAT!22X.  12,  IX, 4011) 

US  CONTINUE 

WRITE (6,  120) 

120  FORMAT ( 29X.  9HFR0NT) 

WRITE (6, 180) 

180  FORMAT <///// 10X, 20HEND  OF  INPUT  SUMMARY) 

RETURN 

END 
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SUBROUTINE  OUTPUT ( I PR  1 .  I PR2, STATS. NDXS ) 


C  OBJECTIVE iS) 

C  (1)  OUTPUT  OF  THE  SIMULATION.  CABIN  ATMOSPHERE  AND  FLAME  SPREAD  DATA 
C  COMMENTS 

C  (1)  THIS  SUBR  CONSISTS  OF  TWO  MAJOR  PARTS:  STMTS  TO  NUMBER  40  WHICH 
C  REPORT  THE  ATMOSPHERE  DATA,  AND  STMTS  AFTER  40  WHICH  REPORT  THE 

C  FLAME  SPREAD  DATA.  THESE  TWO  PARTS  MAY  BE  EXECUTED  SEPARATELY  AS 

C  CONTROLLED  BY  THE  FLAGS  IPR1  AND  IPR2.  IPRi-0  «>  PRINT  GAS  DATA 

C  AND  IPR2-0  ->  PRINT  FLAME  SPRD  DATA. 

C - 

COMMON/CNTRL/DELTAT . DELTSP, ECOFLG. IDELT, IDENT(20), IDTPRV. IPEMS. 

1  IPSPR.  IPAUX,  IRATIO,  ISAVE.  ISCALE.  ITFIN.  ITIME,  ITIM2, 

2  ITSPRD. NP ASS, TFINAL,  IDBUG1 , EPSLN, MAXITR,  MAXCUT, 

3  JCBSKP 

COMMON/FIRES/AFM ( 7 ) ,  ASM ( 7) ,  ISTATE(120,  15),  ISTATS19,  16,22), 

1  IWORDt 120. 13), I WORDS (9, 16. 22) ■ NFLM ( 7 ) , NPYRC7) . 

2  RGS ( 10, 7). RSS(7>, TOTGAS( 10), TOTSEM,  TRGF ( 10), 

3  TRGS<  10).  TRSF ,  TRSS,  NCEOO),  VITNR.  TOTVIT.  RADFIR  ( 30 ) . 

4  ACM ( 7 ) , AF  <  30 ) , AF I , AEXP, C0MB<30), DGK,  FLML ( 30 ) ,  FSN 1 , 

5  FSN2, FSN3, GAMMA ( 30  > ,  IBURN,  1F(600>.  I OMNI,  IQMNJ.  IQMXI. 

6  IGMXJ,  IGNFIR,  1GNIJ(2,  100),  IGSN.  ISFIREOO),  IVMAX(30>. 

7  I VMIN ( 30 ) .  IVMN,  IVMX,  IXFIRE,  I  ZONE ( 30 ) , JVMAX ( 30 ) , 

8  JVM IN < 30 > . JVMN, JVMX, K, NFE f 30) .  NFIRES,  NIJC,  NIJSG, 

9  NPEOO) ,  NSFL<  7) ,  OMEGA  (30) ,  PDH.  PIGN.  RF(20.  4  > ,  RFS(  7,  4), 

1  RFWS, RCF( 10, 7), RGFM 10 > , RHOZ ( 30 > >  RSF ( 7 > ,  RSFK,  TDQ, 

2  TBURNI.  UZ (30). YZ(30),  ZB (30),  RHOEFG.  CHIEFG (11), 

3  FLOWIN,  FLWOUT,  TEFG,  IFRVNT , GENRAT (11), TDGMTL ( 7 ) , 

4  TP  ( 7  > ,  T PC <  7  > 

COMMON/GASES/CHIL < 1 1 ,  3).  CHIU( 11,  3),  CP,  NCAS (11),  NSPCS,  PAMB,  PF(3), 

1  RHOAM,  RHOL ( 3 ) , RHOU ( 3 ) ,  TAM, TL<5>,  TU( 3) ,  VOLL( 3) . 

2  VOLU <  3 ) , ZD( 3  > • XTHEN1 120). WMOLEC < 11 ), TWO( 101 ), 

3  JCOR ( 120 ) 

COMMQN/GMTRY/ IMATL(20) .  IMATS17),  I MTLP  t  4 ) ,  IMAX(30).  IMIN(30). 

1  IRAY< 116),  IRAYS<22) ,  JMAX ( 30 ) .  JMINl 30 > . LSN, MAXELI,  NS. 

2  CH,  CL(4>,  CW,  DUS.  HSTS.  IARX(40,  13),  I  ARY  C  40,  12),  ICLL. 

3  ICLR. I END, IFIRL, IFIRR. ILSTL, ILSTR, I0NE(9), 

4  ISSULI  (9,  10).  ISSUL J ( 9.  10).  ISSWR  1(9,  10).  ISSWRJ(9.  10), 

3  ISUSL (13.  8).  ISUSR <13,  B>.  ISTART,  NPROJ,  IPJUL,  IPJLL, 

6  IPJUR,  IPJLR.  JEND.  JONE  ( 9)  ,  JSTART,  NJS,  NSG,  NV,  SGWD(9>, 

7  SL.  SWD  <  20 ) , VN ( 20,  3 ) , VENTH ( 24 ) ,  VENTW ( 24 ) .  VENTT ( 24 ) , 

8  XMN ( 30) ,  XMX (30) ,  XC0RI9),  YC0R<9>,  ZOO),  SSGWD,  TVSG- 

9  HT1 . HT2, HT3, HT4< 10), NSSTS,  SLSW, SX ( 30 ) .  SZ (30 ) , 

1  CNCTNSI24). NCOMPS,  IFRCMP, FLOW ( 24 ) ,  INTO( 24 ) , VTOTAL ( 4 ) , 

2  FHMIN 

CQMMON/MATLS/TABX (  18,  7,  6),  TABYUS.  7,  6).  NTXG,  FOXI,  RADTAB  (  7  ) ,  RADI . 

1  FOX  <  7 ) , NMATLS, DGI, DGM<  7) ,  GAMI, GTAB ( 7 ) ,  ITF(20>,  IRAMPT, 

2  ITFCI20), ITFCS( 7 ) , ITFS<7>. ITPC20), ITPC(20). ITPCS(7), 

3  ITPE ( 20 ) .  ITPES ( 7 ) >  ITPS<7), QCI, GP(7>. QTAB ( 7 ) ,  RHOI, 

4  RHOM( 7 ) ■ RSI. RTAB ( 7 ) , RTQI ( 10 > ,  UTAB ( 7 ) ,  CNDCTY ( 7 ) ,  XMUI, 

3  XMF I ,  TKNS  ( 7  )  ,  TSL(30,  2,  4),  TSP(2,  2,  4),  CPM<7),  WMMTL  ( 7 ) , 

6  WM IGF, TKNS I N ( 7 ) 

COMMON/PARAMS/GRAV. PI,  QTR, RGAS,  SIGMA.  SOD,  THOU,  TOL,  EC,  EP 
COMMON/RADTN/ALPC,  ABSCFOO) .  EB,  QC  (2! 

COMMON  /PRTCMN/  ASRFUZ (22, 4 > , ASRFLZ ! 22, 4 ) , CVFLWU ( 22. 4 ) , 

*  CVFLWL ( 22, 4 ) , RDFLWU ( 22.  4 ) ,  RDFLWL ( 22.  4 ) , 

*  VTFLWV ( 24, 2) , VTFLWE ( 24,  2 ) ,  FB VDOT ( 30 ) . 

*  FBSDOT ( 1 1 , 30 ) . FBQDOT <  30 ) , FRENTR ( 30 ) 

DIMENSION  10(12),  I DATA  <  7  > ,  IND1 (10),  IND2( 10),  IND3( 10), CONC< 10), 

1  I ZN<  2 ) >  I  SURF < 120.  13),  I SSURF ( 40 ) , FTU ( 3 ) ,  FTL ( 3  > .  XPF(3> 

DIMENSION  LNSRFN( 120), LNSRFC ( 120), STATS(SO. 2), PPMU( 10), PPML( 10) 
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DIMENSION  NWRD<22).  ISRPDF<7,  5),  NA<8>.  No  .  ~  .  .  .  .  oi_  <  20,  2.  4  ) , 

1  FTSPI2, 2, 4), SMKUIS), SMKL<5> 

LOS  I CAL  LNUNDR ( 22 ) 

C  ARRAYS  10,  IDATA,  AND  IZN  CONTAIN  CHARACTER  DATA  FOR  FORMATTING 

DATA  IQ/4HI 10X,  1H.  . 3H1X),  4H1H  . . 4H,  1 X ) ,  4H2HCF,  4H2HCT, 4H2HBF,  4H2HBT 
1  . 4H2HBU, 4H2HBL. 4H2HCB / 

DATA  IDATA/4H1H  ,  . 4H1HS,  .  4H1HF,  ,  4H1HC.  .  4H1H  ,  .  4H1H  ,  ,  4H1H  ,  / 

DATA  IZN/3HLWR, 3HUPR/ 

DATA  LNUNDR/. TRUE.  . 2*  FALSE.  , . TRUE.  . 5*.  FALSE.  . 2*.  TRUE.  . 3*  FALSE.  . 

S<  .  TRUE.  .  2*  FALSE.  .  .  TRUE  ,  3*  FALSE.  ,  .  TRUE.  / 

DATA  NWRD/1,  0,  2.  0.  0.  0.  3.  0,  0.  0,  4.  0.  5,  0,  0,  0.  6.  0.  0,  7,  0.  0/ 

DATA  IGRP0F/4H  CU, 4H  CU. 4H  BA, 4H  BA, 4H  BA. 4H  BA, 4H  CU. 

Sc  4HSHIQ.  4HSHI0,  4HCRRE,  4HCKRE.  4HCKRE.  4HCKRE,  4HSHI0, 

Sc  4HN,  FR,  4HN,  TO,  4HST ,  F,  4HST,  T,  4HST ,  U,  4HST ,  L,  4HN,  BO, 

S<  4H0NT  .  4HP  ,  4HR0NT ,  4H0P  .  4HPR  R.  4HWR  R.  4HTT0M, 

Sc  4H  ,  4H  ,  4H  ,  4H  ,  4HEAR  ,  4HEAR  ,  4H  / 

DATA  T460/439  67/ 

C 

C  IF  NEITHER  IPR 1  OR  IPR2  IS  »  0,  NO  OUTPUT  IS  TO  BE  DONE,  SO  RETURN 
C 

IF<  IPR1.  NE.  0.  AND.  IPR2  NE.  0 ) GO  TO  300 
C 

C  CONVERT  TIME  TO  SECONDS  AND  WRITE  TIME  MESSAGE  AT  TOP  OF  PAGE. 

C 

TIME-ITIME/THOU 

C 

C  WRITE  TIME  AND  RUN  ID  AT  THE  TOP  OF  A  NEW  PAGE 
C 

WRITE (6.2)  TIME.  ( IDENT ( M ) . M» 1 , 20 ) 

2  FORMAT 1 1H1 /  3X.6HT1ME*  . F9.  3, 8H  SECONDS,  13X . 20A4 ) 

C 

DO  24  ICMP*!,  NCOMPS 

C  CONVERT  GAS  TEMPERATURES  TO  FAHRENHEIT 
C 

FTU< ICMP  >  -  TU< ICMP )  -  T460 
FTL < ICMP )  ■  TL< ICMP )  -  T460 
C 

C  CONVERT  PRESSURE  TO  LBF/SG  FT  AND  SMOKE  TO  OD/FT 
C 

XPF I ICMP )  *  PF(ICMP)  /  GRAV 

SMKU(ICMP)  »  0.0437373  *  CHIU < NSPCS, ICMP )  *  RHOU(ICMP) 

SMKL < ICMP )  ■  0.0437373  *  CHIL < NSPCS,  ICMP >  *  RHOL(ICMP) 

C 

WRITE < 6,  3) 

3  FORMAT ( ///2X,  11HC0MPARTMENT, 2X,  4HZ0NE, 4X,  3HDEPTH,  4X, 6H VOLUME, 3X, 

1  8HGAS  TEMP,  2X,  UHGAS  DENSITY,  2X,  lOHSMOKE  C0NC.2X, 

2  29HMASS  FRACTIONS  OF  MAJOR  GASES. 2X, 8HPRESSURE/23X, 4H(FT) , 

3  3X,7H(CU  FT ) , 4X , 3H < F ) , 3X,  ! 1H< LBM/CU  FT ) , 3X, 7H ( DD/FT ) , 7X. 

4  2H02, 7X , 3HC02, 7X# 3HH20, 3X, 1 IH ( LBF /SO  FT)/) 

XX  -  CH  -  ZD(ICMP) 

WRITE  t  6.  4)  ICMP,  XX,  VOLU(ICMP),  FTU(ICMP).  RHOU(ICMP), 

1  SMKU(ICMP)  ,  CHIU(2,  ICMP),  CHIU< 4,  ICMP ) ,  CHIU ( 3,  I  CMP ) , 

2  XPF ( ICMP ) ,  ZD(ICMP),  VOLL(ICMP).  FTL(ICMP),  RHOL(ICMP). 

3  SMKL(ICMP)  ,  CHIL(2,  ICMP).  CHIL  ( 4,  ICMP ) ,  CHILO,  ICMP) 

4  FORMAT <7X,  II.  7X,  6HUPPER  .  FB.  3.  IX,  FB.  1.  3X,  FB.  2,  3X.  FB.  3, 

1  4X,  F7  3,  2X,  3<2X,F8.  3).  3X,  F8.  2/  13X,  6HL0WER  ,  F8.  3,  IX. 

2  FB.  1.  3X,  FB.  2,  3X,  F8  3.  4X,  F7  3,  2X.  3(2X,  FB.  3)/) 

C 

IXS  *  NSPCS  -  1 

WRITE (6, 3)  (NGAS(IG). IG*1>  IXS) 

3  FORMAT ( IX. 34HZ0NE  GAS  CONCENTRATIONS  <PPM)/13X, 
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10  (A4.  5X  )  ) 


C 

C  CONVERT  GAS  CONCENTRATIONS  FROM  MASS  FRACTION  TO  PPM  SY  VOLUME 
C 

SUML  -  0. 

SUMU  -  0. 

C 

DO  6  IG-1. IXS 

SUML  *  SUML  +  CHILUG,  ICMP)  /  WMOLEC(IG) 

6  SUMU  -  SUMU  +  CHIU< IG, ICMP )  /  WMOLECUG) 

C 

DO  7  IG-1, IXS 
PPML(IG)  -  0. 

PPMU (  IG)  -  0. 

I F  t  SUML  .  GT.  0.)  PPML(IG)  -  CHIL  ( IG,  ICMP  >/(  SUML  *  WMOLECUG)) 

I F < SUMU  .  GT.  0.  )  PPMU(IG)  -  CHIU( IG,  ICMP )/( SUMU  *  WMOLECCIG) > 
PPMLUG)  -  PPML (  IG )  *  l.E+6 

7  PPMU <  IG )  -  PPMUUG)  *  1.  E+6 
C 

WRITE ( 6,  S )  < PPMUUG),  IG-t,  IXS) 

8  FORMAT <  1 X,  3HUPPER.  2X,  10F9.  0) 

WR ITE (6,9)  (PPMLUG).  IG-1,  IXS) 

9  FORMAT ( IX, SHLOWER,  2X,  10F9.  0  ) 

C 

C  IF  THIS  IS  THE  COMPARTMENT  WITH  INTERIOR  FIRES  PRINT  THE  FIRE  DATA 
C 

IF (  ICMP  NE.  IFRCMP  )  GO  TO  17 
IF<  NF I RES  EG.  0  )  GO  TO  17 
WR  ITE  (  6,  10) 

10  FORMAT ( /IX, 14HINTERI0R  FIRES/ 

*  2X, 33HFIRE  BASE  AREA  VAPOR  GEN  RATE  HEAT  GEN  RATE  PLUME 

1  , 33H  ENTRMNT  FLAME  LENGTH  ABSN  COEFF  SMOKE  GEN  RATE  O 

2  , 14HXY  CNSPTN  RATE/ 

3  9X,33H<SG  FT)  <CU  FT/SEC)  (BTU/SEC)  (CU  FT/SEC) 

4  , 33H  (FT)  (1/FT)  (PART/SEC)  (LBM/S 

3  ,  3HEC )  > 

C 

DO  12  N-l.NFIRES" 

IXS  -  NTXO  +  6 

WRITE(6. 11)  N.  AF ( N ) ,  FBVDOT(N).  FBQDOT(N),  FRENTR(N),  FLML(N). 

1  ABSCF(N).  FBSDOTt IXS, N),  FBSDOT ( 2, N) 

11  FORMAT ( 2X,  13,  2X,  F8.  2.  3X,  E13.  6,  2X,  E13.  6.  2X,  E13.  6,  4X,  FB.  2,  2X,  E13.  6. 

1  IX,  E13.  6,  3X,  E13.  6) 

12  CONTINUE 
C 

WRITE (6,  13) 

13  FORMAT ( /SX, 36HTRACE  GAS  GENERATION  RATES  (LBM/SEC)  ) 

C 

IXS  -  3  +  NTXG 

WRITE  (6,  14 )  (NGASUG),  IG  -  6,  IXS  ) 

14  FORMAT  ( 2X,  4HFIRE,  7X,  3(  A4,  1 IX)  ) 

C 

DO  16  N  -  1,  NFIRES 

WRITE(6,  13)  N,  <FBSDOT(  IG,  N),  IG  -  6,  IXS  > 

13  F0RMAT(2X.  13,  3X,  3(E13.  6,  2X>  ) 

16  CONTINUE 
C 

17  CONTINUE 
C 

C  WRITE  THE  SURFACE  TEMPERATURE  AND  HEAT  FLUX  DATA 
C 
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WRITE ( 6.  18) 

18  F0RMAT(/1X,  18HSURFACE  CONDITIONS.' 

*  2X. 32HSURFACE  CONTACT  AREA  (SO  FT)  CONVECTIVE  FLOW 

1  . 32H!BTU/SEC>  RADIATIVE  FLOW  (BTU/SEC)  TEM 

2  . 12HPERATURE  (F>/ 

3  1 IX. 32HUPPER  ZONE  LOWER  ZONE  UPPER  ZONE  LOWER  ZONE 

4  . 92H  UPPER  ZONE  LOWER  ZONE  UPPER  PART  LOWE 

3  . 6 HR  PART) 

C 

DO  20  ISRF  -  1.  LSN 

CONVERT  LIN INC  SURFACE  TEMPERATURES  TO  FAHRENHEIT 

FTSL! ISRF, 2, ICMP)  ■  TSL  <  ISRF,  2,  ICMP  >  -  T460 
FTSLt ISRF, 1, ICMP)  ■  TSL ( I SRF, 1 , ICMP )  -  T460 
WRITE (6,  19)  ISRF,  ASRFUZ < ISRF,  ICMP ) ,  ASRFLZ ( ISRF,  ICMP ) , 

1  CVFLWU! ISRF, ICMP),  CVFLWL ( ISRF. ICMP ) , 

2  RDFLWU< ISRF, ICMP),  RDFLWL! ISRF, ICMP > , 

3  FTSL(  ISRF,  2,  ICMP),  FTSL ( ISRF,  1 ,  ICMP ) 

19  FORMAT < 2X,  13,  6X,  F9  3,  3X,  F9.  3,  3X,  F9.  3,  3X,  F9.  3,  12X,  F9  3,  4X,  F9  3,  7X, 

1  F8.  3.  4X,  F8.  3) 

20  CONTINUE 

WRITE  THE  PARTITION  TEMPERATURE  AND  HEAT  FLUX  DATA 
WRITE < 6.  21 ) 

21  FORMAT ( 3X. 3HPARTN) 


DO  23  IP  -  1. 2 

CONVERT  PARTITION  SURFACE  TEMPERATURES  TO  FAHRENHEIT 

FTSPUP.  2.  ICMP)  *  TSP!  IP.  2.  ICMP)  -  T460 
FTSP( IP. 1. ICMP)  »  TSP( IP. 1. ICMP)  -  T460 
IX  -  IP  ♦  20 

WRITE! 6. 22)  IP.  ASRFUZ! IX,  ICMP).  ASRFLZ I  I X,  ICMP ) ,  CVFLWU! IX,  ICMP ) , 

1  CVFLWL! IX, ICMP).  RDFLWU! IX,  ICMP > ,  RDFLWL! IX,  ICMP ) , 

2  FTSPUP.  2,  ICMP).  FTSP!  IP.  1.  ICMP) 

22  FORMAT ( 4X.  II,  6X.  F9.  3.  3X,  F9.  3,  3X,  F9.  3.  3X.  F9  3.  12X.  F9.  3,  4X.  F9.  3,  7X. 

1  FB.  3.  4X,  FB.  3  ) 

23  CONTINUE 


COMPUTE  THE  SUMS  OF  THE  AREAS  AND  FLUXES  TO  SURFACES  AND 
PARTITIONS  AND  WRITE  THEM  OUT 


SUMAU  - 
SUMAL  - 
SUMCU  » 
SUMCL  - 
SUMRU  » 
SUMRL  » 
DO  2301 
SUMAU  « 
SUMAL  - 
SUMCU  - 
SUMCL  - 
SUMRU  ■ 
2301  SUMRL  - 
SUMAU  - 
SUMAL  ■ 
SUMCU  - 


0. 

0. 

0. 

0. 

0. 

0. 

ISRF  -  1,  LSN 
SUMAU  ♦  ASRFUZ! ISRF, ICMP) 
SUMAL  *  ASRFLZ! ISRF, ICMP) 
SUMCU  +  CVFLWU! ISRF, ICMP) 
SUMCL  ♦  CVFLWL! ISRF, ICMP) 
SUMRU  +  RDFLWU! ISRF, ICMP) 
SUMRL  *  RDFLWL! ISRF. ICMP) 

SUMAU  +  ASRFUZ (21, ICMP)  * 
SUMAL  ♦  ASRFLZ! 21. ICMP)  + 
SUMCU  ♦  CVFLWU <21, ICMP )  ♦ 


ASRFUZ (22, ICMP) 
ASRFLZ (22. ICMP) 
CVFLWU (22, ICMP) 


SUMCL  »  SUMCL  ♦  CVFLWL 2 1 ,  I  CMP  )  +  CVFLWL ( 22. ICMP > 

SUMBU  ■  SUMBU  +  RDFLWU!21, ICMP )  +  RDFLWU ( 22, ICMP ) 

SUMRL  *  SUMRL  +  RDFLWL < 21 , ICMP >  ♦  RDFLWL ( 22. ICMP ) 

C 

WRITE! 6, 2302)  SUMAU, SUMAL, SUMCU.  SUMCL, SUMRU, SUMRL 
2302  FORMAT! /3X,  3HT0TAL,  3X,  F9.  3.  3X,  F9.  3.  3X.  F9  3.  3X,  F9,  3.  12X.  F9  3, 

*  4X,  F9.  3) 

24  CONTINUE 
C 

C  WRITE  OUT  VENT  FLOW  DATA  FOR  ALL  VENTS 
C 

WRITE ! 6, 23) 

23  FORMAT! /IX. 32HV0LUME  AND  ENERGY  FLOW  RATES  THRU  VENTS  !CU  FT/SEC) 
1  . 1 1H,  ! STU/SEC )  ) 

C 

C  FIRST  8  OR  FEWER  VENTS 
C 

IS  »  1 
IE  -  8 

IF!  NV  .  LT.  a  )  IE  -  NV 
DO  26  IV  -  IS  .  IE 
NA (IV)  -  CNCTNS! IV)  /10. 

26  NB (IV)  -  CNCTNS! IV)  -  NA(IV)  *  10 
URITE(6.  27)  (IV,  IV  -  IS.  IE  > 

27  FORMAT (/IX. 4HVENT , B ( 1 3  X .  12)  ) 

UR ITE (6.  28 )  ( NA (IV).  NB(IV).  IV  ■  IS.  IE  ) 

28  FORMAT! IX, 8HC0NNECTS, 6X,  8( 12, 4H  TO  ,  12, 7X)  ) 

WRITE<6, 29)  (VTFLWV! IV. 2),  IV  ■  IS.  IE  ) 

29  FORMAT! IX. UHNET  UPR-UPR/2X, 10HV0LUME  . 8(E13. 6, 2X >  ) 

WR ITE ( 6,  30 )  (VTFLWE!  IV,  2),  IV  -  IS,  IE) 

30  FORMAT ( 2X. 10HENERGY  . 8(E13. 6, 2X >  ) 

WRITE(6.  31)  (VTFLWV!  IV,  1 ),  IV  -  IS.  IE  ) 

31  FORMATdX,  11HNE7  LWR-LWR/2X,  lOHVOLUME  ,9  (£13.  6,  2X)  ) 

WRITE(6, 32)  (VTFLWE! IV. 1),  IV  -  IS.  IE  ) 

32  FORMAT ( 2X, 10HENERGY  ,  8(E13.  6.  2X)  ) 

IF (  NV  LE.  8  )  GO  TO  33 

C 

C  VENTS  9  THRU  16 
C 

IS  -  9 
IE  -  16 

IF(  NV  LT.  16  >  IE  »  NV 
IX  -  0 

DO  33  IV  -  IS,  IE 
IX  •  IX  +  1 

NA (IX)  ■  CNCTNS! IV)  /  10. 

NB (IX)  ■  CNCTNS (IV)  -  NA(IX)  *  10 

33  CONTINUE 

WRITE(6,  27)  (IV,  IV  -  IS.  IE  ) 

WRITE  (  6,  28 )  (NA!  II).  NB  (  1 1  > .  II  *  1.  IX) 

WRITEI6.  29)  (VTFLWV;  IV.  2),  IV  ■  IS.  IE  ) 

WR ITE! 6. 30 )  (VTFLWE! IV. 2),  IV  -  IS.  IE  ) 

WRITE16,  31)  (VTFLWV!  IV.  1 ),  IV  -  IS,  IE  ) 

WRITE16. 32)  (VTFLWE! IV. 1 ),  IV  -  IS.  IE  ) 

C 

IF!  NV  LE.  16  )  GO  TO  33 
C 

C  VENTS  17  THRU  24 
C 

IS  -  17 
IE  -  24 
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I F  <  NV  LT  24  )  IE  »  NV 
IX  =  0 

DO  34  IV  »  IS,  IE 
IX  -  IX  +  1 

NA< IX )  •  CNCTNS(IV)  /  10. 

NS (IX)  »  CNCTNS  < I V )  -  N A < I  X )  *  10 
34  CONTINUE 

WRITE ( 6,  27 )  (IV,  IV  -  IS.  IE  > 

WRITE  ( 6,  28  >  ( NA  (III,  NB(II),  II  -  1,  IX  ) 

WRITE(6, 29)  (VTFLWV! IV, 2)  .  IV  -  IS,  IE  ) 

WRITE(6, 30)  (VTFLWE! IV, 2).  IV  -  IS,  IE  ) 

WRITE ( 6, 31 )  < VTFLWV (IV,  1 ) <  IV  -  IS,  IE  ) 

WRITE ( 6.  32 )  (VTFLWE(  IV,  1),  IV-  IS,  IE  ) 

39  CONTINUE 

PRINT  NUMERIC  SOLUTION  DATA  AND  RESET  NDXS 
WRITE!  6,  36) 

36  FORMAT (/ IX, 42HS0LUT ION  DATA  -  TIME  STEPS  IN  MILLISECONDS  ) 

WRITE! 6, 37 )  < STATS( II,  1 > ,  STATS(II.2>.  II  -  l.NDXS  ) 

37  FORMAT;  6(2X, 9HSTEP  , F6.  0, 9H  ITR  ,F3.  0)  > 

NDXS  -  0 

IF  IPR2  IS  NOT  -  0.  FLAME  SPRD  DATA  IS  NOT  TO  BE  WRITTEN.  SO  RETURN. 

40  IF(  IPR2.  NE.  0)00  TO  900 

C  IF  THERE  ARE  NO  CURRENTLY  ACTIVE  FIRES,  RETURN. 

IFINFIRES.  LE.  0)  CO  TO  900 

C  REPORT  THE  NUMBER  OF  SMLDRG,  FLAMING.  AND  CHARRED  ELMNTS  AT  THE  END 
C  OF  THE  LAST  SET  OF  FLAME  SPREAD  CALCULATIONS. 

WR ITE  (  6,  44  ) 

44  FORMAT! //9X, 90HELEMENT  STATE  SUMMARY  -  CONDITIONS  ON  ALL  SURFACES, 
136H  AT  END  OF  FLAME  SPREAD  CALCULATIONS) 

IS-LSN+NSG 
WRITE (6,  90) 

90  FORMAT! 18X,  114H1  2  3  4  9  6  7  8  9  lO  1 1  12  13 

1  14  19  16  17  _1S  19  20  21  22  23  24  29  26  27  28  29) 

WRITE(6.  91)  (NPE!  I).  I— 1.  IS) 

91  FORMAT! 9X,  1 1 HSMOLDER I NG  ,3014) 

WRITE!6. 92)  ( NFE ( I ) . I* 1 , IS ) 

92  FORMAT ( 9X, 7HFLAMIN0,  4X, 3014) 

WRITE<6, 93)  (NCE(I), I-t, IS) 

93  F0RMAT(9X, 7HCHARRED, 4X, 3014) 

C  REPORT  THE  CURRENT  SURFACE  AREAS  SMLDRG.  FLAMING.  AND  CHARRED  BY 
C  MATERIAL  TYPE. 

WRITE ( 6, 69) 

69  FORMAT! //9X62H  FLAMING, SMOLDER ING, AND  CHARRED  AREAS  BY  MATERIAL  TY 
*PE  (SO  FT)/) 

WRITE!  6,  70)  (M,  M-l,  NMATLS ) 

70  FORMAT! 9X, 11HMATERIAL  NO, 7(8X,I2>) 

WRITE ! 6, 71 > ( AFM! M  > ,  M-l, NMATLS) 

71  FORMAT ( 9X. 13HAREA  AFLAME  -7FI0. 2) 

WRITE ( 6, 72) ( ASM! M > .  M-l,  NMATLS) 

72  FORMAT! 9X, 13HAREA  SMLDRG  , 7F10. 2) 

WR ITE ( 6, 73) (ACM!M). M-l, NMATLS) 

73  FORMAT!  9X.  13HAREA  CHRRD  ,  7F10.  2.- 

C  START  A  NEW  PAGE,  PRINT  THE  TIME  AND  HEADING  INFORMATION. 

URITC(4.  3)  TIME.  (1DENT(M>.  M  -1.  30  > 

WRITE (6, 202) 

202  FORMAT! //9X, 6SHD1STR IBUT10N  OF  ELEMENTAL  STATES  AT  END  OF  FLAME  SP 
1READ  CALCULATIONS//) 
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WRITE (6. 203) 

203  FORMAT ! //9X,  49HINTEGERS  CORRESPOND  TO  STATES  OF  INDIVIDUAL  ELEM-// 
120X, 19H1-AMBIENT  STATE/20X, 18H2-SMQLDER INC  STATE/20X. SH3— AFLAME/ 
220X, 9H4-CHARRED/20X,  33H9-HEATINC.  NOT  IN  CONTACT  WITH  FLAME/20X,  32H 
36-HEAT I NO,  IN  CONTACT  WITH  FLAME/20X, 20H7-SM0LDER INC. COOL ING/ / 10X, 3 
4HAFT) 

C  THE  NEXT  14  STMTS  PRINT  THE  VIEW  OF  THE  ELEMENT  STATES  ON  ALL  THE 
C  CABIN  LINING  SURFACES.  ISURF  IS  A  UTILITY  ARRAY  CONTAINING  THE  PICTURE 
JX-JMAX ( 1 ) 

DO  210  II-l, MAXELI 
DO  209  JJ-l.JX 

CALL  CVOUTUI.  JJ.  1.  1ST,  ISTP.  ITFCP) 

ISURF (  II,  JJ)  —  I'ST 

209  CONTINUE 

210  CONTINUE 
KK-JX 
JJ-JX+l 

DO  213  J-l, KK 
J  J— J  J— 1 

WRITE (6, 212) ( ISURF < I, JJ). 1-1, MAXELI ) 

212  FORMAT ( 10X,  1201 1 ) 

219  CONTINUE 

C  ***  THIS  NEXT  PART  FINDS  THE  DIFFERENT  CABIN  LINING  SURFACES  AND 
C  ***  PRINTS  THE  ELEMENT'S  SURFACE  NUMBER  UNDER  THE  PRINTED  VIEW 
C  ***  OF  THE  ELEMENTS  STATE. 

DO  217  ISRFNO— 1,  LSN 
MINSN— IMIN( ISRFNO) 

MAXSN-IMAXC ISRFNO) 

ISRFN1-ISRFN0/10 
ISRFN2- ISRFNO- ( ISRFN1*10) 

DO  216  IN— MINSN, MAXSN 
LNSRFN< IN)— ISRFN1 
LNSRFC  < IN)  — ISRFN2 

216  CONTINUE 

217  CONTINUE 

WRITE <  6, 218) (LNSRFN(IN).  IN-I, MAXELI) 

218  FORMAT <3X.  'LINING', / 

It  3X,  ’  SURF-',  IX,  12011) 

WRITE <6, 219) (LNSRFCl IN). IN-1, MAXELI) 

219  FORMAT (3X,  'NUMBER',  IX,  12011) 

C  ****** 

C  SCAN  ALL  SEAT  CROUPS  TO  FIND  IF  THERE  ARE  ANY  SMLDRC  OR  FLAMING  ELMNTS 
C  ON  ANY  OF  THEM.  IF  NOT.  RETURN. 

IX-LSN+1 
DO  220  I — I X , NS 

IF(NFE<  I  > .  NE.  0  OR.  NFE  <  I ) .  NE.  0) CO  TO  230 

220  CONTINUE 
RETURN 

C  START  A  NEW  PACE,  PRINT  THE  TIME  AND  HEADING  INFORMATION. 

230  WRITE ( 6, 2 )  TIME,  < IDENT ( M) ,  M-  1.  20  > 

WRITE (6, 239) 

233  FORMAT < / / 1 OX , 4 1HF0R  SEAT  CROUPS - J-  l-  4  CUSHION, B0TT0M/2BX,  26HJ 

1-  9-  7  BACKREST. LWR  REAR/2SX,  26HJ-  8-11  BACKREST, UPR  REAR/2SX, 21 
2HJ-12  BACKREST, TOP /28X, 23HJ-13-1S  BACKREST, FR0NT/28X, 20HJ-19- 

321  CUSHION, TOP/ 28X, 22HJ-22  CUSHION, FRONT ) 

C  IPG  INDICATES  WHETHER  A  NEW  PACE  AND  HEADING  IS  TO  BE  PRINTED. 

IPC-0 

C  THE  NEXT  LOOP  (THRU  300)  FORMS  AND  PRINTS  THE  PICTURE  OF  THE  ELMNTS  ON 
C  EACH  SEAT  CROUP.  A  SEPARATE  PACE  IS  USED  FOR  EACH  CROUP  AND  A  CROUP  IS 

c  skipped  if  there  are  no  current  flaming  or  smldrc  elmnts  on  it 

DO  300  I S- 1 ,  NSC 


I-IS+LSN 

I F <  NFE  ( l )  ea  0  AND.  NPE !  I  ) .  EQ  0 ) CO  TO  300 
IPG-IPG*1 

IF <  IP«.  LE.  1  )«0  TO  240 
WRITE16. 10)  TIME 
240  WRITEI6, 249) IS 

249  FORMAT (// lOXi 13HSEAT  GROUP  NO. 12//) 

IWIDE-2.  0*SCWD ( I S ) +TOL 
JJ»23 

WRITE  (  6.  261 ) 

DO  279  J-l.  22 
JJ*JJ“1 

DO  290  11*1. I WIDE 

CALL  CVOUTdl, JJ. I. 1ST. ISTP, ITFCP) 

ISSURF  < II )*IST 
290  CONTINUE 

WRITE ( 6. 260) JJ.  < ISSURF< II), 11*1, IWIDE) 

260  F0RMAT(22X, 12. 2X. 4011 ) 

IF  <  LNUNDR ( J) ) WRITE (6. 261) 

261  FORMAT <  1H+.  2X,  19H _ ) 

IF <NWRD< J) . NE.  0) WRITE! 6.  262) ( 1 8RPDF ( NWRD ( J > . K). K-l.  9) 

262  FORMAT! 1H+. IX. 9A4) 

279  CONTINUE 

300  CONTINUE 
C 

900  RETURN 
END 
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SUBROUTINE  RDCNTL 

COMMON/CNTRL/OELTAT,  CELT3P.  ECOFLG,  IDELT,  I DENT ( 20 ) .  IDTPRV.  IPEMS. 

1  IPSPR,  IPAUX,  IRATIO,  I  SAVE.  ISCALE.  ITFIN.  ITIME.  IT  1(12, 

2  ITSPRD. NPAS3.  TFINAL, IDBUG 1 . EPSLN, MAX ITR, MAXCUT, 

3  UCBSKP 

COMMON/FIRE5/AFM < 7 ) , ASM(7>.  ISTATEt 120.  15),  ISTATS(9,  16. 22). 

1  I WORD! 120.  15).  I WORDS (9,  16, 22) . NFLM  t  7 ) . NPYR<7) , 

2  RGS( 10, 7), RSS (  7 ) , TDTGAS ( 10). TOTSEM. TRGF ( 10) , 

3  TRGS ( 10),  TRSF ,  TRSS,  NCE(30>.  VITNR, TOTVIT, RADF 1R ( 30 ) , 

4  ACM ( 7  ) , AF ( 30 ) . AFI. AEXP. CQMB(30),  DGK, FLML(30), FSN1, 

5  FSN2, FSN3,  GAMMA  <  30  > ,  IBURN,  IF(600),  IGMNI,  IGMNJ.  IGMXI, 

6  IGMXU,  IGNFIR,  1GNIU(2,  100).  IGSN,  ISFIRE130).  IVMAXOO), 

7  IVMIN(  30) ,  IVMN,  IVMX,  IXFIRE,  IZQNE(30>. JVMAX(30), 

5  UVM  IN  ( 30 )  ,  JVMN,  JVMX,  K,  NFE  (  30 ) ,  NFIRES.  NIJC.  NIUSQ. 

9  NPE < 30 ) . NSFL ( 7 ) , 0MEGA(30> ,  PDH, PIGN.  RF(20.  4) ,  RFS(7.  4) 

1  RFWS,  RGF (  10.  7),  RGFK (  10),  RHOZ  (  30  ) .  RSF<7),  RSFK,  TDQ, 

2  TBURNI , UZ<30>. YZ (30),  ZB (30) . RHOEFG.  CM1EFG ( 11), 

3  FLOUIN,  FLWOUT,  TEFG.  IFRVNT ,  GENRAT (11), TDGMTL (  7 ) , 

4  TP ( 7 ) , TPC ( 7 ) 

COMMON/GASES/CHIL! 11.  5 > . CHIUf 1 1 .  5 ) , CP, NGAS ( 1 1 ), NSPCS, PAMB. PF(5), 

1  RHOAM, RHQL ( 3 ) , RH0U(3),  TAM,  TUC3),  TU(3).  V0LL(3), 

2  VOLU ( 3 ) ,  ZD<  3) , XTHEN ( 1 20 ) ,  WMOLEC (11).  TWO(lOl). 

3  JCOR < 120) 

COMMON/GMTRY/ IMATL ( 20 ) , I MATS ( 7 ) . IMTLP ( 4 ) , IMAX<30), IMIN(30), 

1  1RAY ( 1 16) ,  IRAYS( 22 ) .  UMAX (30),  JMIN(30), LSN.  MAXELI.  NS, 

2  CH,  CL ( 4 ) ,  CW,  DUS,  HSTS.  IARX(40.  13),  IARY140.  12).  ICLL- 

3  ICLR,  I  END.  IFIRL.  IFIRR.  ILSTL,  ILSTR ,  I0NE(9). 

4  ISSWLI <9,  10),  ISSWLU (9,  10),  ISSWRI (9,  10),  ISSWRJ(9.  10), 

3  ISUSL(  13,  8),  ISWSRC 13,  8),  ISTART,  NPROJ.  IPJUL,  IPULL, 

6  1PJUR.  IPJLR,  UEND,  J0NEC9),  JSTART.  NJS.  NSG.  NV,  SGWD(9), 

7  SL, SUD  <  20 ) • UN ( 20. 3 ) . VENTH ( 24 ) ,  VENTW ( 24 ) ,  VENTT ( 24 ) , 

8  XMN ( 30 ) , XMXC30), XC0R(9>, YCOR ( 9 ) , Z(30>. SSGWD. TVSG, 

9  Htl,  HT2,  HT3,  HT4(  10).  NSSTS.  SLSW.  SX  ( 30  ) ,  SZ  (  30  )  . 

1  CNCTNS ( 24 ) , NCQMPS. IFRCMP, FLOW ( 24 > , INTO< 24 ) , VTOTAL< 4 ) 

2  FHMIN 

COMMON/MATLS/TABX< 18. 7, 6), TABY( 18, 7, 6), NTXG.  FOX  I,  RADTAB (7) ,  RADI, 

1  FOX  <  7 ) , NMATLS, DOI. DQM ( 7 ) , GAMI,  GTAB ( 7 ) ,  ITF<20>,  IRAMPT 

2  ITFC(20>,  ITFCS ( 7  > ,  ITFS<7>,  ITP(20),  ITPC(20),  ITPCS(7>, 

3  ITPE(20). ITPESI7). ITPS(7), QCI, QP<7>, GTAB ( 7 ) . RHOI, 

4  RHQM<7>.  RSI. RTAB ( 7 ) , RTGK 10),  UTAB ( 7 ) , CNDCTY ( 7 ) ,  XMUI, 

3  XMF I ,  TKNS  ( 7 ) ,  TSL  ( 30.  2,  4 ) ,  TSP  ( 2,  2,  4 ) .  CPM  ( 7  ) .  WMMTL  ( 7 ) , 

6  WMIGF,  THNSIN(7) 

COMMON/PARAMS/GRAV,  PI,  QTR,  RGAS,  SIGMA,  SOD.  THOU,  TOL,  EC,  EP 
COMMON/RADTN/ALPC.  ABSCF ( 30 ) , EB.  GC ( 2 ) 

INTEGER  ECOFLG 

READ  80  CHARACTERS  OF  RUN  IDENTIFICATION  -  CARD  TYPE  1 

READ (3.1)  < IDENT(M). M-l,  20) 

1  FORMAT ( 20A4 ) 

READ  CARD  TYPE  2,  PROGRAM  TIME  CONTROL  DATA 

READO. 2)  DELTAT, TFINAL, EPSLN, MAX ITR, MAXCUT, UCBSKP, IRATIO. ISCALE 

2  F0RMAT(3F10.  1. SIS) 

READ  CARD  TYPE  3.  OUTPUT  CONTROL  DATA 


READO.  3)  IPEMS.  IPSPR.  IPAUX,  ECOFLG 
FORMAT (41 3) 
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RETURN 

END 
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c 


SUBROUTINE  AUXOUT 


COMMON/CNTRL/DELTAT. CELTSP, ECOFL0.  IDELT.  IDENT(20>.  IDTPRV.  IPEMS. 

1  IPSPR.  IPAUX,  IRATIO.  ISAVE.  ISCALE.  ITFINi  ITIME.  ITIM2. 

2  ITSPRD.  NPASS.  TFINAL,  IDBU01.  EPSLN.  MAXITR,  MAXCUT. 

3  JCBSKP 

COMMON/FIRES/ AFM<  7 )  .  ASri(7).  I  STATE  ( 120.  19).  ISTATS<9.  16.  22). 

1  I WORD ( 120.  19).  I WORDS (9.  16.  22) .  NFLM<7) . NRYR < 7) , 

2  R0S< 10. 7 ) . RSS ( 7 ) . T0T8AS ( 10). TQTSEH. TROF(IO), 

3  TROS(IO), TRSF. TRSS. MCE ( 30) .  VITNR,  TOTVIT.  RADF!R(30>. 

4  AC)1<7),  AF  ( 30 ) .  AF I .  AEXP.  COMB < 30).  DOK.  FLMLOO).  FSN1. 

9  FSN2. FSN3. «AMNA<30).  I  BURN.  IF<600).  ZBMMZ.  ZB HU.  ZSMXZ. 

6  I0MXJ.  IONFIR.  I6NI J(2.  100).  ISSN.  ZSFIREOO).  IVMAXOO). 

7  IVHINOQ),  IVMN,  IVMX,  ZXFZRE.  IZ0NE(30>,  JVMAX  (30), 

8  dVMINOO).  JVMN.  JVMX .  K.  NFE ( 30) .  NFZRES.  N1JC.  NIJSO. 

9  NPE(30) .  NSFL ( 7 > .  OME0A ( 30 ) •  PDH, PZCN. RF<20, 4).  RFS<7. 4). 

1  RFUS.  ROF 1 10.  7 ) ,  R0FK ( 10 ) .  RHOZ <  30  > . RSF ( 7 ) . RSFK. TDO. 

2  TBURNI. UZ ( 30  >  >  YZ (30) . ZB (30) . RHOEF0.  CHIEFS <11 ), 

3  FLOWIN.  FUWOUT.  TEF0.  IFRVNT.  0ENRAT  ( 1 1 ) ,  TDQT1TL  ( 7 ) . 

4  TP  <  7 ) .  TPC  ( 7  > 

COMMON/CASES/CHIL ( 1 1 . 9). CHIU(11. 9). CP. NOAS( 1 1 ) . NSPCS. PAM8, PF(9). 

1  RHOAfl.  RH0L(9).  RHQU(S).  TAH.  TL(  9  > .  TU(  9) .  UOLL  ( 9) . 

2  V0LUI9).  ZD( 9) . XTHEN< 120) , WHOLEC < 1 1 > . TUO< 101 ) . 

3  JCOR ( 120 ) 

COHMON/SMTRY/ IHATL ( 20 ) .  IMATS(7>.  IMTLP<4>,  IMAX(30),  IMINOO), 

1  IRAY (116).  IRAYS ( 22 ) .  JMAX  (30) .  JMIN<30) .  LSN.  I1AXELI.  NS. 

2  CH.  CL  ( 4  ) ,  CU<  DWS.  HSTS.  ZARX(40.  19).  I  ARY  ( 40,  12).  ICLL, 

3  ICLR.  I  END.  IFIRL.  IFIRR.  ILSTL.  ILSTR,  I0NE(9>. 

4  ISSWL1  <9,  10),  ISSULJ<9.  10).  ISSWRI  (9,  10).  ISSWRU(9.  10). 

9  I SWSL (19.8),  1SWSR ( 19,  8) ,  ISTART.  NPROJ.  IPJUL.  IPJLL. 

6  IPJUR,  IPJLR,  JEND,  J0NE<9>,  JSTART.  NJS.  NS0.  NV.  S0UD(9>. 

7  SL.  SUD<20>. UN(20> 3) ,  VENTH<24 > . VENTW<24> ,  VENTT(24) , 

8  XHN  <  30 ) . XMX  <  30  > . XCOR ( 9 ) , YCOR ( 9 ) . Z ( 30 ) , SS0WD. TVS0. 

9  HT1,  HT2.  HT3.  HT4 (10).  NSSTS.  SLSW.  SX  ( 30 > .  SZ  ( 30 > . 

1  CNCTNS <  24 ) , NCOMPS.  I FRCMP . FLOW < 24 > ,  ZNT0(24 ) , WT0TAL(4) . 

2  FHHIN 

COMMON/MATLS/TABX < 18. 7, 6 > . TABY < 18. 7. 6). NTX0. FOX I. RADTAB ( 7) . RADI . 

1  FOX ( 7 ) . NMATLS. DOI. DQH< 7 ) , 0AHI , 0TAB(7>. ITF(20),  1RAHPT, 

2  ITFC<20>, ITFCS<7), ITFSI7). ITP<20).  ITPC(20),  ITPCS<7), 

3  ITPE<20>,  ITPES(7), ITP6(7) , OCI,  0P(7).  0TAB<7).  RHOI, 

4  RH0M<7>. RSI, RTAB (7) , RT0I ( 10) . UTAB ( 7) . CNDCTY (7) ,  XHUI. 

9  XMFI,  TKN8 ( 7 ) ,  TSL ( 30.  2.  4).TSP<2.  2,  4).  CPH<7).  WHHTL(7). 

6  WHI0F. TKNSIN<7> 

COmON/PARAHS/QRAV.  PI,  QTR.  R0AS.  SIOMA,  SOD.  THOU,  TOL,  EC.  EP 
COMMON/ R ADTN/ ALP  C , ABSCF ( 30 ) , EB. QC (2) 


C - 

C  OBJECTIVES > 

C  (1)  WRITES  FORMATTED  VALUES  OF  CERTAIN  CABIN  OAS  VARIABLES  TO  UNIT  8 
C  (DISK  OR  TAPE  AS  DEFINED  BY  USER'S  JCL)  FOR  LATER  PLOTTINC  OR 

C  OTHER  USES. 

C  COMMENTS 
C  (1) 

COMMON  /PRTCMN/  ASRFUZ ( 22. 4 > . ASRFLZ (22.  4) ,  CVFLWU<22.  4) , 

•  CVFLWL ( 22. 4  > , RDFLWU ( 22. 4  > . RDFLWL  <  22. 4 ) , 

•  VTFLWVI24,  2),  VTFLWE(24,  2),  FBVDOTOO). 

•  FBSDOTf 11, 30 ) . FBODOT ( 30 ) . FRENTR ( 30 ) 

DIMENSION  10(12),  IDATA<7),  INDK10).  IND2(10>.  IND3(  10) .  CONC  (  10) . 

1  IZN(2) .  I SURF ( 120.  19). ISSURF (40) . FTU<9> . FTL< 9) . XPF(9> 

D Z MENS I ON  LNSRFN (120),  LNSRFC (120). STATS (90,2>.PPMU(10).PPML(10> 
DIMENSION  NWRD ( 22 ) . I0RPDF(7, 9 > . NA(8) . NB < 8) . FTSL < 20. 2.  4), 
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uuo  ouo  o  o  u  uoo  u  o  uou  u  u  o  uuu 


1  FTSP (2,  2,4),  3MKU  (  3 )  >  SMKL  (9) 

CONVERT  TIME  TO  SECONDS 

TIME" I TIME/THOU 

WRITE  TIME  AND  RUN  ID 

WRITE(8, 2)  TIME,  < I DENT < M ) , M" 1 , 20 ) 

2  FORMAT (F9.  3.  20A4) 

DO  24  ICMP-1. NCOMPS 

CONVERT  OAS  TEMPERATURES  TO  FAHRENHEIT 

FTU(ICMP)  -  TU< ICMP )  -  T460 
FTL  ( I  CMP  >  -  TLUCMP)  -  T460 

CONVERT  PRESSURE  TO  L.QF/SQ  FT  AND  SMOKE  TO  OD/FT 

XPF < ICMP )  -  PF < ICMP  >  /  GRAV 

SMKU(ICMP)  -  0.  0457S7S  *  CHIU(NSPCS.  ICMP)  *  RHOUUCMP) 
SMKL(ICMP)  -  0.0497973  *  CHIL(NSPC9, ICMP)  *  RHOL(ICMP) 

XX  -  CH  -  ZD ( ICMP ) 

WRITE (8, 4)  ICMP,  XX,  VOLUUCMP).  FTU(ICHP).  RHOUUCMP). 

1  SMKU( ICMP )  .  CHIU(2, ICMP),  CHIU ( 4,  ICMP ) ,  CHIU( 9.  ICMP > , 

2  XPFUCMP),  2D(  ICMP  >,  VOLL(ICMP),  FTL  ( I  CMP ) ,  RHOL(ICMP), 

3  SMKLUCMP)  .  CHIL(2,  ICMP).  CHIL ( 4, ICMP > ,  CHIL(3.  ICMP) 

♦  FORMAT  <  1 1 ,  F8.  3.  F8.  1 .  F8.  2.  F8.  3. 

1  F7.  3.  3F8.  9.  F8.  2.  F8.  3, 

2  F8.  1.  F8.  2.  F8.  9.  F7.  3,  3F8.  9) 


T  VC  _  MCpfC  _  « 

WRITEO.  3)  (NOAS(IO),  16—1.  IXS) 
9  FORMAT  < 10A4 ) 


CONVERT  OAS  CONCENTRATIONS  FROM  MASS  FRACTION  TO  PPM  BY  VOLUME 

SUML  -  0. 

SUMU  -  0. 


DO  A  I 0-1. IXS 

SUML  -  SUML  ♦  CHJLUO.  ICMP)  /  WMOLECUO) 
b  SUMU  -  SUMU  CHIUUC.  ICMP)  /  WMOLECUO) 


DO  7  10-1.  IXS 
PPMLUO)  -  0. 

PPMU(IO)  -  0. 

IF  (SUML  .  OT.  0.  )  PPMLUO)  -  CHILUO.  ICMP )/ (SUML  *  WMOLECUO)) 
IF  (SUMU  .  OT.  0.  )  PPMUUO)  -  CHIU(  IG.  ICMP  >/(  SUMU  *  WMOLECUO) 
PPMLUO)  -  PPMLUO  *  i.E+6 
7  PPMUUO)  -  PPMUUO  *  1.  E+6 


WRITE (8.  8)  (PPMUUO),  IG-I.  IXS) 

3  FORMAT  ( 10F9.  0) 

WRITE ( 8.  9 )  (PPMLUO),  IQ-1.  IXS) 

?  FORMAT ( 10F9.  0  ) 

IF  THIS  IS  THE  COMPARTMENT  WITH  INTERIOR  FIRES  PRINT  THE  FIRE  DATA 


IF (  ICMP  . NE.  IFRCMP  )  00  TO  17 


u o  p  U  OOOO  UOU  UUOU  UOO  UUUO 


IF (  NFIRES  EQ.  0  >  QO  TO  17 

c 

DO  12  N-l.NFIRES 
IXS  -  NTXO  ♦  6 

WRITE (8. 11)  N.  AF !  N )  >  FBVDOTIN).  FBQDOTIN) .  FRENTR IN),  FLMLIN). 
1  ABSCFIN) .  FBSDOTIIXS.  N>.  FBSD0TI2,  N> 

11  FORMAT!  13.  F8.  2<  3E13.  6.  F8.  2>  3E13.  6)  ’ 

12  CONTINUE 


IXS  ■  3  +  NTXO 

WRITEI8.  14)  INOASIIO).  IS  -  A.  IXS  ) 

14  FORMAT I 3A4) 

DO  16  N  a  1.  NFIRES 

WRITEC8.  13)  N.  (FBSDOT  (  I0>  N>  >  IQ  -  6.  IXS  ) 

13  FORMAT! 13.  3E 13.  6) 

16  CONTINUE 

17  CONTINUE 

WRITE  THE  SURFACE  TEMPERATURE  AND  HEAT  FLUX  DATA 


DO  20  ISRF  -  1.  LSN 

CONVERT  LINING  SURFACE  TEMPERATURES  TO  FAHRENHEIT 


ICMP). 
ICMP). 
ICMP). 
ICMP) 

19  FORMAT!  13.  6F9.  3.  2PB.  3) 

20  CONTINUE 

WRITE  THE  PARTITION  TEMPERATURE  AND  HEAT  FLUX  DATA 


FTSL1ISRF.2. ICMP) 
FTSLIISRF. 1.  ICMP) 
WRITEI8. 19)  ISRF. 


1 

2 

3 


-  TSL!  ISRF.  2.  ICMP) 

-  TSL! ISRF. 1. ICMP) 
A8RFUZ! ISRF. ICMP). 
CVFLWU! ISRF. ICMP). 
RDFLWUi ISRF, ICMP). 
FTSLIISRF. 2. ICMP). 


-  T460 

-  T460 
ABRFLZ I ISRF. 
CVFLWL! ISRF, 
RDFLWLC ISRF. 
FTSLIISRF.  1. 


DO  23  IP  ■  1.2 

CONVERT  PARTITION  SURFACE  TEMPERATURES  TO  FAHRENHEIT 

FTSPIIP.  2.  ICMP)  «  TSP!  IP.  2.  ICMP)  -  T460 
FTBPdP. 1. ICMP)  -  TSP! IP. 1. ICMP)  -  T460 
IX  -  IP  ♦  20 

WRITEI8.  22)  IP.  ASRFUZdX.  ICMP),  ASRFLZ!  IX.  ICMP).  CVFLWU!  IX.  ICMP) 

1  CVFLWL!  IX.  ICMP).  '4DFLWUIIX.  ICMP),  ROFLWLdX.  ICMP  > 

2  FTSPIIP, 2. ICMP).  FTSPIIP. 1. ICMP) 

12  FORMAT  III.  6F9.  3,  2FS.  3) 

23  CONTINUE 

COMPUTE  THE  SUMS  OF  THE  AREAS  AND  FLUXES  TO  SURFACES  AND 
PARTITIONS  AND  WRITE  THEM  OUT 

SUMAU  *  0 
8UMAL  -  0. 

8UMCU  -  0. 

8UMCL  -  0. 

8UMRU  -  0. 
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SUMRL  -  0. 

DO  2301  ISRF  -  1.  LSN 

SUMAU  •  SUMAU  ♦  ASRFUZ ( ISRF, ICMP) 

SUMAL  »  SUMAL  ♦  ASRFLZ ( ISRF. ICMP ) 

SUMCU  »  SUMCU  CVFLWUHSRF,  ICMP) 

SUMCL  -  SUMCL  *  CVFLWL ( ISRF. ICMP ) 

SUMRU  ■  SUMRU  ♦  RDFLWU< ISRF. ICMP) 

2301  SUMRL  ■  SUMRL  +  RDFLWL< ISRF,  ICMP > 

SUMAU  ■  SUMAU  *  ASRFUZ(2l, ICMP)  +  ASRFUZ <22.  ICMP) 

SUMAL  ■  SUMAL  *  ASRFLZ (21. ICMP )  ♦  ASRFLZ <22. ICMP ) 

SUMCU  ■  SUMCU  «■  CVFLUU<21,  ICMP)  ♦  CVFLWU<22.  ICMP) 

3JDMCL  «  SUMCL  *  CVFLWL<21,  ICMP)  *  CVFLWL <22,  ICMP) 

SUMRU  *  SUMRU  «■  RDFLWU<21.  ICMP)  +  RDFLWU<22. ICMP > 

SUMRL  -  SUMRL  +  RDFLWL< 2l. ICMP >  +  RDFLUL<22,  ICMP ) 

C 

WRITE <8. 2302)  SUMAU, SUMAL, SUMCU. SUMCL, SUMRU,  SUMRL 

2302  FORMAT <6F9.  3) 

24  CONTINUE 

C 

C  WRITE  OUT  VENT  FLOW  DATA  FOR  ALL  VENTS 

C 

C 

C  FIRST  8  OR  FEWER  VENTS 
C 

IS  -  1 
IE  -  a 

IF <  NV  .  LT.  8  )  IE  -  NV 
DO  26  IV  -  IS  ,  IE 
NA(IV)  *  CNCTNS < IV )  /10. 

26  NB < I V )  -  CNCTNS < iO)  -  NA<IV>  *  10 
WRITE<B.  27)  (IV,  IV  *  IS,  IE  > 

27  FORMAT (812) 

WRITE <8, 28)  < NA< IV) .  NB<IV).  IV  «  IS.  IE  ) 

28  F0RMAT(8(I2,  I2>) 

WRITEO.29)  < VTFLWVt IV, 2),  IV  »  IS.  IE  > 

29  FORMAT (8E13.  6) 

WR1TEC8.30)  <VTFLWE<  IV.'  2),  IV  »  IS.  IE) 

30  F0RMAT(8E13.  6) 

WRITE <8. 31)  <VTFLWV<IV< 1),  IV  ■  IS.  IE  ) 

31  F0RMAT<8E13.  6) 

WRITE <8.  32)  <VTFLWE<IV,  1),  IV  *  IS.  IE  > 

32  FORMAT <8E13.  6) 

IF<  NV  .  LE.  8  )  80  TO  39 
C 

C  VENTS  9  THRU  16 
C 

IS  -  9 
IE  -  16 

IF<  NV  .  LT.  16  )  IE  -  NV 
IX  »  0 

DO  33  IV  -  IS,  IE 
IX  ■  IX  ♦  1 

NA< IX)  -  CNCTNS < IV)  /  10. 

NB  < I X )  -  CNCTNS < IV )  -  NA < I X )  •  10 

33  CONTINUE 

WRITE<8. 27)  <IV,  IV  -  IS.  IE  ) 

WRITE <8, 28)  < NA < 1 1 ) ,  NB(II),  II  -  1,  IX) 

WRITE<8. 29)  <VTFLUV< IV. 3) . XV  »  IS.  IE  ) 

WRITEO.  30)  <VTFLWE(  IV,  2).  IV  ■  IS.  IE  ) 

WRITE< 8,  31 >  <VTFLWV( IV, 1 ) , IV  -  IS,  IE  ) 

WRITEO.  32)  <VTFLWE<  IV.  1),  IV  ■  IS.  IE  > 


c 


IF(  MV  LE.  16  )  00  TO  38 


C 

C  VENTS  17  THRU  24 
C 

IS  -  17 

IE  -  24 

IF<  NV  LT.  24  )  IE  -  NV 
IX  -  0 

DO  34  IV  -  IS.  IE 
IX  •  IX  ♦  1 

NA(IX)  -  CNCTNSt IV)  /  10. 

NS(IX)  »  CNCTNSUV)  -  NA(IX)  *  10 
34  CONTINUE 

WHITE (8. 27)  (IV.  IV  -  IS.  IE  > 

WHITE (8. 28)  (NA(II),  NB (II).  II  «  1,  IX  ) 
WHITE (8. 29)  (VTFLWVt IV. 2)  ,  IV  -  IS.  IE  ) 
WRITE! 8.  30 >  ( VTFUJEI IV.  2>.  IV  -  IS.  IE  > 

WRITE(8>  31 )  (VTFLWVdV.  1).  IV  ■  IS.  IE  ) 

WRITE(8. 32)  (VTFLWE( IV. 1 ).  IV-  IS.  IE  ) 

38  CONTINUE 
C 

RETURN 

END 
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SUBROUTINE  ATMOS (STATS*  NDXS) 

C0MMON/«MTRY/IMATL(20>. IMATS<7>. IMTLP<4>. IMAX(30). IMIN(30). 

1  IRAY (116).  IRAYS<22) ,  UMAX (30) .  JMINOO).  LSN.  MAXELI.  NS. 

2  CH.  CL(4),  CM.  DUS.  HSTS.  IARX(40.  19).  ZARY(40.  12).  ICLL, 

3  ICLR. I END.  IFIRL, IFIRR.  ILSTL.  ILSTR.  I0NE(9>. 

4  ISSWLI  (9,  10),  ISSWLJ <9*  10).  ISSWRK9,  10).  ISSURJ(9.  10). 

9  ISWSLt 13.  8).  ISWSR(  13.  0).  ISTART.  NPROJ.  IPJUL.  IPJLL, 

6  IPJUR,  IPJLR.  JEND.  JONE ( 9 ) .  JST ART .  NJS.  NSO.  NV,  SCUD<9). 

7  SL.  SWD ( 20 > .  UN (20. 3) . VENTH( 24 ) . VENTWM24 ) . VENTT (24) , 

8  XMN ( 30 ) ,  XMX  ( 30) ,  XCOR ( 9) .  YCOR (9) .  ZOO).  SSOWD.  TVSC. 

9  HT1,  HT2.  HT3. HT4( 10) . NSSTS.  SLSU, SX (30) . SZ ( 30) . 

1  CNCTNS(24>. NCOMPS. IFRCMP, FL0W(24>, I NTO ( 24 ) , VTOT AL ( 4 ) , 

2  FHMIN 

COMMON/CASES/CHIL ( 11.  9). CHIU< 11. 9). CP.  NOAS (11),  NSPCS.  PAMB,  PF ( 9 ) , 

1  RHOAM. RHOL ( 3 ) . RHOU ( 3 ) , TAM,  TL( 9) . TU< 9) . V0LL( 9) , 

2  V0LU(3).  ZD(  9),  XTHEN(  120) .  WMOLEC  ( 1 1  > ,  TWO(  101 ) , 

3  JCOR (120) 

COMMON/CNTRL/DELTAT, DELTSP.  ECOFLO. IDELT. I DENT (20) . IDTPRV. IPEMS. 

1  IPSPR.  IPAUX.  1RATXQ.  ISAUE,  ISCALE.  ITFIN.  ITIME.  ITIM2, 

2  1TSPRD.  NPASS.  TFINAL,  ZDBU61.  EPSLN,  MAXITR.  MAXCUT, 

3  JCBSKP 

DIMENSION  X ( 120) ,  DUMX ( 120) .  XNEXTt  120).  STATSOO.  2) 

C 

C  SAVE  THE  VALUES  OF  THE  CURRENT  TIME  AND  THE  NEXT  TIME  POINT.  AS  CALLED 
C  FOR  BY  DACFIR. 

C  LTIME  -  LOCAL  TIME  WITHIN  THIS  SUBROUTINE  (MILLISECONDS) 

C  LOT  -  LOCAL  TIME  INCREMENT  (MILLISECONDS) 

C  LTOBJ  -  LOCAL  TIME  VALUE  OF  THE  NEXT  TIME  POINT  (MILLISECONDS) 

C  LDTPRV-  PREVIOUS  VALUE  OF  LOT 
C 


LTIME  -  ITIME 
LOT  «  IDELT 
LTOBJ  -  ITIME  ♦  IDELT 
LDTPRV-  IDTPRV 
C 

C  INITIALIZE  TWO  COUNTERS 

C  I NCR  «  COUNTS  THE  NUMBER  OF  SUCCESSFUL  SOLUTIONS  OBTAINED  AT  THE 
C  CURRENT  LOCAL  TIME  INCREMENT  WHEN  INCREMENT  CUTTINO  IN  EFFECT 

C  I CUT  -  CURRENT  CUT  LEVEL.  ICUT-0  ->  LDT-IDELT.  ICUT-1  ->  LDT-IDELT/2 
C  I CUT-2  ->  LOT-IDELT/4.  I CUT -3  ->  LDT-IDELT/8. 

C 

I  NCR  -  0 
I CUT  -  0 
NDXS  «  NDXS  +  1 
STATS (NDXS.  1)  -  LOT 
STATS (NDXS. 2)  -  0 
C 

C  SET  THE  INITIAL  VALUE  OF  THE  QAS  STATE  VECTOR  <X> 

C 

3  I  -  0 

DO  30  N2  -  1.  NCOMPS 
DO  10  N1  -  1.  NSPCS 
I  -  I  ♦  1 

10  X(I)  -  CHIL(Nl.NS) 

DO  20  N1  -  1.  NSPCS 
1-1*1 

20  X(I>  •  CHIUtNl, N2) 

X(I*ll  -  PF(N2> 

X ( 1*2)  -  RH0LIN2) 

X ( I *3 )  >  RH0U(N2> 

X ( I *4 )  -  TL(N2) 
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X<I+9>  -  TU(N2> 

X ( I >6)  -  VOLL ( N2 ) 

X ( 1+7)  -  VOLU ( N2 > 

X(I+8>  -  ZD<N2> 

I  -  I  +  8 

30  CONTINUE 

SUBROUTINE  SCALE  SCALES  THE  MAGNITUDE  OF  THE  VARIABLES  TO  0(1)  FOR 
IMPROVED  NUMERIC  SOLUTION 

CALL  SCALE (-1.  X.  1) 

SUBROUTINE  ESET1  INITIALIZES  THE  TERMS  IN  THE  GAS  DYNAMICS  EQUATION  SET 
TO  BE  EVALUATED  AT  TIME  -  LTIME 

CALL  ESET1(  X.  DUMX.  I.  LOT  ) 

SUBROUTINE  EXTRAP  GENERATES  THE  INITIAL  GUESS  SOLUTION  FOR  THE  NEXT 
TIME  POINT 

CALL  SCALE (-1,  XTHEN.  I  ) 

CALL  EXTRAP ( XTHEN, X.  XNEXT, I,  LDT, LDTPRV) 

SUBROUTINE  NUTRAP  CORRECTS  THE  INITIAL  GUESS  OF  THE  SOLUTION  BY  THE 
NEWTON-RAPHSON  METHOD.  ICON  IS  A  FLAG  TO  INDICATE  CONVERGENCE. 

IC0N»1  •>  CONVERGENCE.  ITR  IS  THE  NUMBER  OF  ITERATIONS  MADE. 

CALL  NUTRAP< XNEXT. 1. LDT, ICON. ITR) 

IF  CONVERGENCE  WAS  NOT  ACHIEVED  JUMP  TO  STMT  70  TD  CUT  THE  TIME  STEP 
IF  THE  SOLUTION  CONVERGED  UPDATE  THE  LOCAL  TIME  AND  THE  VARIABLES  <X> 

IF <  ICON  .  EG.  0)  GO  TO  70 

LTIME  -  LTIME  +  LDT 

SCALE  UP  TO  PHYSICAL  HAONITUDES 

CALL  SCALE (+1. XNEXT. I) 

CALL  SCALE (+1. X. I) 

CHECK  TO  SEE  IF  IT  IS  TIME  TO  RECOMPUTE  THE  SCALE  FACTORS 
LSC  »  MOD (LTIME, ISCALE) 

IF<  LSC  EG.  0.  )  CALL  SCALEC  O.  XNEXT.  I  ) 

C 

I  -  0 

C 

DO  60  NS  *  1.  NCOMPS 
DO  40  Nl  *  1.  NSPCS 
1*1  +  1 

CHIL(Nl.NS)  -  XNEXT ( I ) 

40  XTHEN ( I >  *  X(I) 

DO  90  Nl  ■  1.  NSPCS 
I  -  I  ♦  1 

CHIU(Nl.NS)  ■  XNEXT < I ) 

90  XTHEN < I )  *  X(I) 

PF(N2>  *  XNEXT < 1  +  1 ) 

XTHEN< I+l >*  X(I*1) 

RHOL ( N2 )  -  XNEXT ( I +2 ) 
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XTHENC 1*2)*  X ( 1+2) 

RHQU <  NS )  -  XNEXT  < 1+3) 

XTHENt I*3>-  X  ( 1+3) 

TL(N2>  »  XNEXT ( 1+4 > 

XTHENt I *4)*  X(I+4> 

TU<N2)  -  XNEXT ( 1+9 ) 

XTHEN(  1+9)-  X <  1+9) 

VOLL < NS  >  -  XNEXT  < 1+6 ) 

XTHENt I+6>-  X  ( 1+6) 

VOLU(NE)  -  XNEXT  ( 1+7 ) 

XTHENt I+7>-  X( 1+7) 

ZD(N2>  -  XNEXT (1*8) 

XTHENt 1+8)-  X ( 1+8) 

I  -  I  +  8 
60  CONTINUE 
C 

LDTPRV  -  LOT 
STATStNDXS.  1 )  -  LOT 
STATS ( NO XS. 2)  -  ITR 

TEST  TO  SEE  IF  THE  NEW  LOCAL  TIME  IS  THE  OBJECTIVE  FOR  THIS  CALL.  IF 
SO  RETURN 

IFtLTIME  . OE.  LTOBJ)  RETURN 

MORE  LOCAL  STEPS  ARE  NECESSARV  TO  ACHIEVE  THE  OBJECTIVE.  INCREMENT 
I NCR  TO  COUNT  SUCCESSFUL  INTERMEDIATE  STEPS  AND  IF  TWO  HAVE  BEEN  MADE 
TRY  DOUBLING  THE  LOCAL  TIME  STEP. 

I NCR  -  I NCR  +  1 
NDXS  -  NDXS  +  1 
IFtINCR  .  LT.  2)  CO  TO  S 
LDUM  -  LTIME  +  2  *  LOT 
IFtLDUM  .OT.  LTOBJ)  00  TO  S 
LDT  -  2  *  LOT 
I NCR  -  0 
I CUT  -  I CUT  -  I 
GO  TO  9 
C 

C  CONVERGENCE  WAS  NOT  ACHIEVED  FOR  THIS  LOCAL  TIME  STEP.  TRY  AOAIN 
C  WITH  LDT  OF  ONE  HALF  THE  CURRENT  VALUE  (ROUNDED  TO  THE  NEXT 
C  HIGHEST  INTEOER. )  IF  THE  CURRENT  CUT  LEVEL  IS  THE  MAXIMUN 
C  ALLOWED  STOP  THE  RUN  WITH  AN  ERROR  MSG. 

C 

70  IF <  I CUT  .  EG.  MAXCUT  )  GO  TO  80 
LDT  -  FLOAT  (LDT)  /  2.  ♦  O.  S 

I CUT  -  I CUT  ♦  1 
I NCR  -  0 

CALL  SCALE (+1.  XTHEN.  r  ) 

GO  TO  9 
C 

80  WRITE16. 101)  LTIME.  LDT.  (XtJ).  J-t , I ) . ( XTHENt J) . J-l. I ) 

101  FORMATt 1H1. //2X, 2BHC0NVERGENCE  FAILURE  IN  ATMGS//2X. 7HLTIME-  .110. 

•  9HLDT-  , I6//(2X. BE19.  7) > 

STOP  ■ 

END 
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SUBROUTINE  EXTRAP <  X 1 .  X8,  X3.  N,  LOT.  LDTP  ) 


OBJECTIVES S) 

<1)  THIS  SUBROUTINE  LINEARLY  EXTRAPOLATES  VALUES  FROM  THE  ARRAYS  XI 
AND  XS  TO  THE  CORRESPONDING  ELEMENTS  IN  ARRAY  X3 
COMMENTS 

(!)  ARRAY  XI  IS  LDTP  TIME  UNITS  PREVIOUS  TO  X2  AND  X3  IS  LDT  UNITS 
AHEAD 


DIMENSION  XI  (120).  X2U20).  X3(120> 

DT  -  LDT 

DTP  -  LDTP 

Cl  »  DT/DTP 

C2  -  1.  *  Cl 

DO  10  J-l.N 

10  X3<J>  -  X2( J)  #  C2  -  Cl  *  X1<J) 

RETURN 
END 
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SUBROUTINE  NWTRAP ( X. N. LOT.  ICON.  ITR ) 

COIinON/N£UTON/XUCB<  120.  120 >.  UL<  120.  120).  IPS<  120) 
COfIMON/CNTRL/DELTAT.  DELTSP,  ECOFLO.  IDELT,  IDENT<20>.  IDTPRV.  IPEMS. 

1  IPSPR.  IPAUX.  IRATIQ.  ISAVE.  1SCALE.  ITFIN.  ITIME.  ITIM2. 

2  ITSPRD.  NPASS,  TP  INAL.  IDBUC1.  EPSLN.  MAX  ITR.  MAXCUT. 

3  JCBSKP 

DIMENSION  X ( 120) . XNEW< 120 > . F< 120 > .  H( 120) 

C 

DH  -  0.  0001 
ICON  -  0 
ITR  -  0 
10  CONTINUE 

CALL  ES£T2<X,  XNEW. N.  LOT) 

C 

C 

FNQRM  -  0. 

C 

DO  20  1-1.  N 

FU>  ■  XN£U< I )  -  X(I) 

IF t  ABS(  F( I )  )  .  LE.  FNORM  )  CO  TO  20 

FNQRM  -  ABS<  F(I)  ) 

20  CONTINUE 
C 

IF<  (FNORM  .  OT.  1.  .AND.  ITR  .  CT.  0)  OR.  ITR  .  CT.  MAXITR)  RETURN 
IF (  FNORM  .  OT.  EPSLN  >  00  TO  29 
ICON  »  1 
DO  22  I— 1.  N 
22  X<I)  -  XNEU(I) 

RETURN 

29  CONTINUE 
C 

IF <  ITR  .  EG.  0)  00  TO  27 
IF (  MOD<  ITR,  JCBSKP)  .  NE.  0  )  CO  TO  90 
C 

27  CONTINUE 

DO  40  J-l.N 
SAVE  -  X< J) 

X< J)  -  SAVE  +  DH 

CALL  ESET2 ( X .  XNEW.  N.  LOT) 

DO  30  I-l.N 

30  XUCBU.U)  -  ( XNEW  ( I )  -  XU)  -  FU>  )  /  DH 
X(U)  »  SAVE 

40  CONTINUE 
C 

90  CONTINUE 
C 

CALL  MSLV<  H.  F.  N  ) 

C 

DO  60  I-l.N 

60  XU)  »  XU)  -  H(I) 

ITR  -  ITR  *  1 
00  TO  10 
C 

END 
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SUBROUTINE  MSLV<  X.  S,  N  > 

COMMON  /NEWTON/ XUCBU20.  iSO),UL<iSO.  ISO).  IPS(ISO) 
DIMENSION  X< ISO). B( ISO) 

00  3  I»t.  N 

IF ( XJCBt  I.  I  >  .  NE.  0.  )  GO  TO  3 
XOCBU.  I)  -  -I. 

CONTINUE 
CALL  DECOMP (N) 

CALL  SOL VEIN, 8.X ) 

RETURN 

END 


r 

f 

i 

t 
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SUBROUTINE  DECOMP(NN) 

DECOMPOSES  MATRIX  A  INTO  A  PRODUCT  OF  A  LOWER-DIAGONAL  MATRIX 
L  WITH  UNIT  DIAGONAL  ENTRIES  AND  AN  UPPER-DIAGONAL  MATRIX  U. 
THE  OUTPUT  MATRICES  L  AND  U  ARE  BOTH  STORED  IN  UL. 

DIMENSION  SCALES ( 120 ) 

COMMON /NEWTON/ A < 120.  120). UL< 120.  120).  IPS( 120) 

N-NN 

INITIALIZE  IPS. UL  AND  SCALES 

DO  5  1-1.  N 
IPS(I)-I 
ROWNRM  »  0.  0 

DO  2  J-l.  N 
UL<  I.  J)  *  A<  I.  J) 

IF  (ROWNRM.  LT.  ABS(UL<  I.  J)  >  )  ROWNRM  »  ABS(ULd.J)) 

2  CONTINUE 

IF  (ROWNRM.  £Q.  0.  )  GO  TO  4 
SCALES ( I )  -  1.  /ROWNRM 
GO  TO  3 

4  WRITE(6.  101) 

101  FORMAT ( 2X, 'MATRIX  WITH  ZERO  ROW  IN  DECOMP') 

SCALES  ( I  )-0.  0 

9  CONTINUE 

GAUSSIAN  ELIMINATION  WITH  PARTIAL  PIVOTING 
NM1-N-1 

I F ( NM 1 .  LT.  1 )  GO  TO  18 

DO  17  K-l.NHl 
BIG-O.  0 

DO  11  I-K.  N 
IP-IPS(I) 

SIZE— ABS(UL( IP. K) )*SCALES( IP) 

IF(SIZE.  LE. BIO)  GO  TO  11 

BIG-SIZE 

IDXPIV— I 

11  CONTINUE 
C 

IF  (BIG.  NE.  0.  ) GO  TO  13 

12  WRITE ( 6. 102) 

102  F0RMAT(2X.  'SINGULAR  MATRIX  IN  DECOMP'). 

STOP 

C 

13  IF(  IDXPIV.  EQ.  KIGO  TO  IS 
J— IPS (K ) 

IPS(K)-IPS( IDXPIV) 

IPS( IDXPIV)— U 
C 

15  KP-IPS(K) 

PIVOT-UL(KP. K) 

KP1-K+1 

DO  16  I-KP1.N 
IP-IPS< I ) 

EM— UL(  IP.  K)  /PIVOT 


ULUP.  *>— EH 
DC  14  J-KPl.  N 

UL( IP- J>*UU< IP* J > +£H*UL ( HP .  J) 
14  CONTINUE 

17  CONTINUE 

18  CONTINUE 
KP-IPS<N> 

IF<UL(KP/N>.  EO.  0.  )C0  TO  12 

RETURN 

END 
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SUBROUTINE  SOLVE (NN, 8. X) 

SOLVES  THE  MATRIX  EQUATION  A*X-B  FOR  VECTOR  X.  WHERE  A  IS  THE  PRODUCT 
OF  THE  LOWER-  AND  UPPER -DIAGONAL  FACTORS  STORED  IN  MATRIX  UL. 

DIMENSION  8(130).  X ( 1 SO ) 

COMMON/NEWTON/A< ISO. ISO). UL (ISO,  ISO).  IPS(ISO) 

N-NN 
NP1-N+1 
C 

IP-IPS(l) 

X< 1 >-B( IP) 

IF(N.  LT.  S)  00  TO  6 
C 

DO  3  I -2.  N 
IP-IPS(I) 

IH1-I-1 

SUM-0. 

DO  1  J-l.  IM1 

1  SUM— SUM+UL (IP.  J ) *X  <  J ) 

5  X(I)-B(IP) -SUM 
C 

6  CONTINUE 
IP— IPS<N) 

X ( N ) — X ( N ) /UL (IP. N) 

IF<N.  LT.  3)00  TO  3 
C 

do  4  i back-2,  n 

I -NP 1- I BACK 
IP-IPS<I) 

IP1-I+1 

SUM-O. 

DO  3  J-IP1.N 

3  SUM— SUM+UL( IP. J) *X ( J) 

4  X < I )— < X ( I )— SUM) /UL< IP. I) 

C 

3  CONTINUE 

RETURN 
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SUBROUTINE  SCALEdSW.  X.  M) 

C0MMQN/GASE5/CHIL ( 1 1. 3),  CHIU( 11.  3). CP. NGAS 11 1) , NSPCS. PAMB. PF(3>. 

1  RHOAIi.  RHOLO),  RHOU(S).  TAN,  TLf  3>.  TU  (  3  ) .  VOLL  (  3  > . 

2  VOLU(S).  20(3).  XTHEN( 120) >  WM0LEC( 1 1 >.  TUO( 101 ) > 

3  JC0RU20) 

DATA  AL0G2/0. 6931472/ 

DIMENSION  X ( 1 20 ) 

80  TO  (1.  20,  10).  ISW*2 

SCALE  DOWN  FROM  PHYSICAL  MASNITUDES  TO  SCALED  MAGNITUDES  ( ISW  -  -1) 

I  DO  3  1*1.  M 

II  -  UCORd) 

3  X  < I )  *  X ( I )  /  TWO (II) 

RETURN 

SCALE  UP  TO  PHYSICAL  MAGNITUDES  FROM  SCALED  MAGNITUDES  (ISW  -  ♦!) 

10  00  13  1*1. M 

II  *  JCOR(I) 

13  X(l>  -  X  < I )  *  TWO (II) 

RETURN 

RESET  SCALE  FACTORS  AND  JCOR  ARRAY.  <X>  INPUT  IN  PHYSICAL  MAGNITUDES. 
(ISW  *  0) 

20  CONTINUE 

DO  30  1*1.  M 
TMP  *  ABS( X ( 1 ) ) 

KEXP  -  0 

IF(  TMP  NE.  0.  )  KEXP  -  ALOO ( TMP  >  / AL0C2  *0.3 

IF ( JI ABS (  KEXP  )  .  GT.  30  )  KEXP  *  JISIGN(  30.  KEXP  ) 

UCOR(I)  -  KEXP  *  31 
30  CONTINUE 
C 

RETURN 

END 
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SUBROUTINE  VENTt IV,  PFI, PFJ, ZDI, ZDJ. RUI, RUJ, RLI, RLJ, 
•  GUIJ.  GUJI. GLIJ. GLJI > 


OBJECTIVE: 

(1)  SUBROUTINE  VENT  CONFUTES  THE  RATES  OF  NASS  FLOW  THRU  A  SINGLE 
VENT  BETWEEN  CONPARTNENTS  I  AND  J.  FOUR  NET  NASS  FLOW  RATES 
CAN  OCCUR  (ALL  UNITS  ARE  LBN/SEC): 
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OF 

I 

THE  FOLLOWING  QUANTITIES  ARE  GIVEN  IN  THE  CALL: 

IV  -  VENT  ID  NUNBER 

PFI  -  PRESSURE  (LBN/ (FT*8EC**2)  >  AT  FLOOR  OF  COHPARTNENT  I 


PFJ  -  PRESSURE  (LBN/(FT*SEC**2> )  AT  FLOOR  OF  COHPARTNENT  J 
ZDI  •  THERMAL  DISCONTINUITY  POSITION  (FT)  IN  COMPARTMENT  I 
ZDJ  -  THERMAL  DISCONTINUITY  POSITION  (FT)  IN  COMPARTMENT  J 


RUI 
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COMMENTS: 

(1)  THE  VENT  ID  NUMBER  INDEXES  THE  VENT  GEOMETRY  THRU  COMMON  /QMTRY/ 

(2)  FLOOR  LEVELS  IN  EACH  COMPARTMENT  ARE  ASSUMED  EQUAL 

(3)  UPPER  ZONE  OASES  FLOW  ONLY  TO  THE  OPPOSITE  UPPER  ZONES  AND  LOWER 
ZONE  OASES  FLOW  ONLY  TO  THE  OPPOSITE  LOWER  ZONES. 


CONMQN/GMTRY/ IMATL ( 20 )  >  IMATS(7),  IMTLP(4>,  IMAX(30),  IMINOO), 

1  IRAY( 116),  IRAYS ( 22) >  JMAX (30) >  JMIN< 30) ,  LSN,  MAXELI,  NS, 

2  CH,  CL  ( 4 ) ,  CWi  DWS,  HSTS.  IARX(40,  19).  IARY(40,  12).  ICLL, 

3  ICLR, I END . IFIRL. IFIRR. ILSTL. ILSTR. I0NE(9>, 

4  ISSWLI  (9,  10),  ISSWLJ(9>  10).  ISSWRK9.  10).  ISSWRJ(9,  10). 

9  ISWSL (19. 8) .  I SWSR (19.8),  ISTART,  NPROJ.  IPJUL,  IPJLL. 

6  IPJUR.  1PJLR,  JEND.  J0NE(9).  JSTART.  NJS.  NSG.  NV.  SGWD(9), 

7  SL. SWD(20) >  VN(20. 3 ) . VENTH ( 24 ) , VENTW ( 24 ) . VENTT <  24 ) , 

8  XMN( 30 ) ,  XMX  ( 30 ) .  XCOR ( 9 > ,  YCOR (9) ,  ZOO).  SSOWD.  TVSC. 

9  HT1.  HT2,  HT3,  HT4  (10),  NSSTS,  SLSW.  SX  <  30) .  SZ  ( 30 ) . 

1  CNCTNS ( 24 ) , NCOMPS, IFRCMP, FL0W(24 > , I NTO ( 24 ) , VTOT AL ( 4 ) , 

3  FMMXN 

COMMON/P ARAMS/GRAV,  PI,  QTR,  RGAS,  SIGMA.  SQD.  THOU.  TOL.  EC.  EP 
COMMCN/CNTRL/DELTAT, DELTSP, ECOFLG, IDELT, IDENT(20>, IDTPRV. IPEMS, 

1  IPSPR.  IPAUX,  IRATIO.  ISAVE,  ISCALE.  ITFIN.  ITIME,  ITIM2. 
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2  ITSPRD. NPASS. TF INAL.  IDBU01. EPSLN.  MAXITR, MAXCUT, 

3  JC8SKP 

DIMENSION  ZL(7>,  ZN(4>,  ZX<7).  DP(7>,  RO(7> 

DATA  ORFC/O.  68/ 

{ 

C  INITIALIZE  THE  ARRAY  OF  NEUTRAL  PLANE  POSITIONS.  ZN.  AND  COMPUTE  THE 
C  FLOOR  PRESSURE  AND  ZONE  DENSITY  DIFFERENCES. 

C 

9UIJ  -  0. 

©LI J  •  0. 

OUJI  *  0. 

9LJI  »  0. 

DO  9  1-1.4 
9  ZN< I )  -  -44 

OFF  ■  PFI  -  PFJ 
DRLL  -  RLI  -  RLJ 
ORLU  -  RLI  -  RUJ 
DRUL  •  RUI  -  RLJ 
DRUU  -  RUI  -  RUJ 
C 

C  COMPUTE  THE  POSITIONS  OF  ALL  POSSIBLE  NEUTRAL  PLANES  BETWEEN  I  AND  J 
C 

XX  -  OFF  /  8RAV 

IF  (DRLL  .  NE.  0.  )  ZN(1)  -  XX  /  DRLL 

IF<DRUL  .  NE.  O.  >  ZN(2>  -  (XX  ♦  ZDI  *  (RUI  -  RLI)  )  /  DRW. 

IF(DRLU  .  NE.  0.  >  ZN(3)  •  (XX  ♦  ZDJ  *  (RLJ  -  RUJ)  >  /  DRLU 

IF (DRUU  .  NE.  0.  )  ZN(4)  «  (XX  ♦  ZDI  *  (RUI  -  RLI)  )  /  DRUU 

C 

C  ELIMINATE  THE  PHYSICALLY  IMPOSSIBLE  NEUTRAL  PLANES 
C 

IF(  ZN( 1 )  .  OT.  ZDI  )  ZN(»>  -  -94. 

IF (  ZN(2>  .LT.  ZDI  )  ZN(2)  •  -94. 

IF(  ZN<3)  .  LT.  ZDJ  )  ZN13)  -  -44. 

IF(  ZN(4)  .  LT.  ZDI  )  ZN(4)  •  -94. 

c 

C  FIND  THE  UPPER.  ZVU.  AND  LOWER*  ZVL.  LIMITS  OF  THIS  VENT  (FT) 

C 

ZVU  -  VENTT(IV) 

ZVL  -  VENTT(IV)  -  VENTH(IV) 

ZLU)  -  ZVL 

C  LOAD  THE  LIST  ZX  WITH  ANY  EXISTING  NEUTRAL  PLANE  BETWEEN  ZVL  AND  ZVU 

C 

IC  -  1 
C 

DO  10  1 1-2.  9 
XX  -  ZN(II-l) 

!F(  (XX  . LT.  ZVL)  .OR.  (XX  .  8T.  ZVU)  )  ©0  TO  10 
IC  -  II 
ZX(II)  -  XX 
10  CONTINUE 

C  ADD  ZDI  AND/OR  ZDJ  TO  THE  LIST  ZX  IF  THEY  ARE  IN  THE  VENT  OPENING 


IF (  (ZDI 

.  LE. 

ZVL) 

.  CM. 

(ZDI 

.  OE. 

ZVU) 

)  ©0 

TO 

20 

IC  -  IC  ♦ 
ZX(IC)  - 
IF (  (ZDJ 

1 

ZDI 

.  LE. 

ZVL) 

.  OR. 

(ZDJ 

.  ©E. 

ZVU) 

>  00 

TO 

30 

IC  -  IC  +  1 
ZX(1C>  -  ZDJ 


30  CONTINUE 
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IC  -  IC  +  1 
ZL<  1C  >  -  ZVU 

SORT  THE  LIST  ZX  INTO  THE  LIST  ZL 

IF<  1C  .  LT.  4  >  00  TO  60 

00  90  IK-2. IC-1 

JO-2 

ZL( IK)  -  ZX<2) 

00  40  IL-3. IC-1 

IF (  ZL(IK)  .  LT.  ZX ( IL)  )  00  TO  40 
ZL( IK)  -  ZX ( IL) 

JJ  -  IL 
40  CONTINUE 

ZX<JJ>  -  ZVU  +  1. 

90  CONTINUE 

60  IF <  IC  .  EQ.  3  )  ZL < 2 )  -  ZX(2) 

COMPUTE  THE  PRESSURE  DIFFERENCE  BETWEEN  COMPARTMENTS  AT  EACH  ZL 
NOTE  THAT  DP  >  0  ->  PR  I  >  PRJ 

DO  70  K-l. IC 

PRI  -  PFI  -  RLI  *  ORAV  *  ZL<K> 

IF(ZL(K)  .  OT.  ZDI )  PRI  -  PFI  +  «RAV*(ZDI*  (RUI-RLI)  -  RUI*ZL(K>> 
PRJ  -  PFJ  -  RLJ  *  ORAV  *  ZL<K) 

IF ( ZL< K )  .  OT.  ZDJ)  PRJ  -  PFJ  ♦  ORAV*<ZDJ*  (RUJ-RLJ)  -  RUJ*ZL(K>1 
DP(K)  -  PRI  -  PRJ 
70  CONTINUE 

BASED  ON  THE  SIGN  OF  DP  AT  EACH  LEVEL  SELECT  THE  DENSITY  OF  THE 
FLOW I NO  GAS 

DO  90  K-2.  1C 

IF (  < DP ( K )  .  OT.  0.)  OR.  <DP<K-1>  .  OT.  0.)  )  00  TO  SO 
R0<K-1)  -  RLJ 

IF (  ZL(K-l)  .  OT.  ZDJ  )  R0<K-1)  -  RUJ 
00  TO  90 

SO  RO < K— 1 )  -  RLI 

IF (  ZL(K-l)  .  OT.  ZDI  )  R01K-1 )  -  RUI 
90  CONTINUE 

BASED  ON  THE  VALUE  AND  SION  OF  DP  AT  EACH  ZL  COMPUTE  THE  FLOW  RATE 
BETWEEN  EACH  PAIR  OF  ZL'S.  ASSIGN  THE  FLOW  RATE  TO  THE  PROPER  OUTPUT 
VARIABLE  BASED  ON  ZL(K)  AND  ZDI.  ZDJ. 

DO  120  K-2.  IC 

IF  (  (  DP  (K)  .  EQ.  0.  )  AND.  (  DP(K-l)  EQ.  0.  >  )  00  TO  120 

DDP  «  AB3 ( DP  <  K ) )  -  ABS ( DP ( K— 1 ) ) 

IF (  DDP  .  NE.  0.  )  00  TO  100 

XX  -  1.414214  *  ORFC  *  VENTW(IV)  *  (ZL(K)  -  ZL(K-l)) 

XX  -  XX  *  SORT (  ABS ( DP ( K ) )  *  RO(K-l)  > 

00  TO  110 

100  AA  -  DDP  /  (ZL(K)  -  ZL<K-l)> 

BB  -  0. 

IF  (  DP  ( K  )  .  NE.  0.  )  BB  -  (  ABS  <  DP  <  K  )  )  >**1.9 

CC  -  0. 

1F<  DP(K-l)  NS.  O.  )  CC  -  «  ABS(DP(K-1>>  >**1.9 

XX  •  0.9428090  *  ORFC  *  VENTW(IV)  *  SORT <  R0<K-1>  )  /  AA 

XX  -  XX  *  (  BB  -  CC  ) 
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no  I F  (  <  DP  <  K )  ♦  DP  <K— 1  > )  LT.  0.  )  SO  TO  114 

IF <  ZL<K)  ST  ZD!  )  SO  TO  112 
QLI J  -  SUIJ  *  XX 
60  TO  120 

112  SUIJ  -  SUIJ  +  XX 
SO  TO  120 

114  IF<  ZL<K)  ST.  ZDU  )  SO  TO  116 
SLJI  ■  SLJI  +  XX 
SO  TO  120 

116  SUJI  ■  SUJI  +  XX 

120  CONTINUE 


C 


RETURN 

END 
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SUBROUTINE  PLUM£(ZD,  RO,  TT,  CHI-  NSPCS-  IC,  SPENT,  CPENT,  EPENT) 
COMMON/F IRES/AFM  <  7 ) - ASM(7),  ISTATE(J20-  15),  ISTATS(9,  16,  22), 

1  I WORD! 120,  15), IW0R0SC9,  16, 22). NFLM( 7) .  NPYR ( 7) , 

2  RGS( 10,  7),  RSS<7>. TOTQAS( 10), TOTSEM. TRGF(IO). 

3  TR«S<10),  TRSF,  TRSS,  NCE(30).  VITNR,  TOTVIT,  RADFIROO), 

4  ACM ( 7 > , AF < 30 > , AFI, AEXP, COMB ( 30) , DGK,  FLML ( 30) .  FSN1, 

5  FSN2, FSN3, GAMMA ( 30 ) ,  IBURN.  IF(600>,  IGMNI.  IGMNJ,  IGMXI, 

6  IGMXJ-  IGNFIR,  I0NIJ(2,  100),  IGSN.  ISFIRE ( 30 ) ,  I UMAX  <  30 ) , 

7  I VHIN ( 30 ) ,  IVMN.  I VMX,  IXFIRE,  IZ0NE(30). JVMAX(30), 

8  JVM  IN  (  30 ) ,  JVMN.  JVMX,  K,  NFE<30),  NFIRES,  NI JC,  NIJSQ, 

9  NPE ( 30) ,  NSFL ( 7 > ,  OMEGA  ( 30 ).  PDH, PIGN,RF(20, 4), RFS(7, 4), 

1  RFWS,  RGF< 10,  7  > ,  RGFK  < 10 ) ,  RHOZ ( 30 ) .  RSF 1 7 ) , RSFK. TDO. 

2  TBURNI, UZ(30), YZ(30), ZB (30) ,  RHOEFG, CHIEFS! 11), 

3  FLQWIN,  FLWQUT,  TEFG,  IFRVNT ,  GENRAT (11),  TDQMTL ( 7 ) , 

4  TP ( 7 > ,  TPC (7) 

COMMON/PARAMS/GRAV,  PI,  GTR,  RGAS,  SIGMA,  SGD,  THOU.  TOL.  EC,  EP 
COMMON  /PRTCMN/  ASRFUZ (22, 4) , ASRFLZ (22, 4) , CVFLWU(22, 4) , 

*  CVFLWL ( 22, 4 > , RDFLWU ( 22,  4 ) , RDFLUL ( 22.  4  > , 

*  VTFLWV (24,2).  VTFLWE ! 24. 2 ) .  FBVDOT ( 30 ) , 

*  FBSDOT ( 11,  30 ) ,  FBGDOT ( 30 ) ,  FRENTR ( 30 ) 

DIMENSION  CHI (11.  4).  CPENT(ll) 

DIMENSION  GEP ( 30 > ,  CEP(11.30>.  EEP(30) 

GPENT  *  0. 

EPENT  »  0. 

Y02  -  CHI (2, IC) 

DO  10  1*1,  NSPCS 
10  CPENT  ( I )  -  0. 

IF  THERE  ARE  NO  CURRENT  FIRES  RETURN 
IF (  NFIRES  .  EQ.  0.  )  RETURN 

DO  50  N-l.  NFIRES 

IF  THIS  FIRE  BASE  IS  IN  THE  UPPER  ZONE,  THERE  WILL  BE  NO 
ENTRAINMENT  SO  SKIP  TO  END  OF  LOOP 

IF(  IZONE(N)  .  EQ.  2  )  GO  TO  SO 

INITIALIZE  ENTRAINMENT  RATE  VARIABLES  (MASS.  SPECIES.  AND  ENERGY) 

FOR  EACH  FIRE 


GEP(N)  *  0. 

EEP  ( N >  *  0. 

DO  20  1*1,  NSPCS 
20  CEP(  I.  N)  *  0. 

DMEC  ■  0. 

OMEP  *  0. 

C 

T1  -  (  RHOZ (N)  *  UZ(N)  /  (RO  *  SORT (  CRAV  *  YZ(N>  >  )  )  **0.  4 

T2  ■  OMEGA! N)  *  RO  /  RHOZ(N)  +  GAMMA! N)  /  Y02 

ZZ  »  ZD  -  ZB ( N ) 

IF (  ZZ  .  LE.  0.  )  GO  TO  30 

C 

IF(  ZZ  ST.  COMB(N)  )  ZZ  •  COMB(N) 

FR  -  UZ(N)  *  UZ(N)  /  (  GRAV  *  YZ(N)  ) 

T3  *  AF(N>  •  UZ(N)  •  RO  •  OMEOA(N) 

T4  *  (  (  0. 42  *(  1.0  -  OMEGA ( N )  >  )/(  EC  *  FR  *  0MECA(N>**3) >**0. 2 
DMEC  *  T3  *  (  (  (  0.  8  *  EC  *  T4  *(  ZZ  /  YZ  (N)  )  +  1.  )  **  2.  5)  -1.  ) 
IF!  ZD  LT.  ( ZB (N)  ♦  COMB(N>)  )  GO  TO  30 


4 
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c 

T3  *  <EC  /  <  SQRTf < 1.  -ONECA<N> > *OMEGA < N > **3>  >  )  **0.2 
T4  ■  ( t  (1.  ♦  OAMMA<N>  /  Y02  >**5>  /  T2)  **  0.  1 
YS  ■  1.  19  *  YZ  <N)  *  T3  *  T4  *  T1 
T3  ■  <  YZ<N>  /  YS  )**2 

T4  ■  1  ♦  <  OAHU A <  N )  /  Y02  >  /  <  OMEOA ( N )  *  RO  /  RHOZ(N)  ) 

XMUS  -  UZ (N)  *  T3  *  T4 

RS  ■  XMUS  •  XMUS  /  <  GRAV  •  YS  > 

RHOS  *  RO  *  OMEOA ( N )  *  <1.  ♦  OAMMA(N)  /  Y02  >  /  T2 
T3  -  PI  *  YS  *  YS  *  XMUS  *  RO 

T4  *  <0. 629  /  EP  *<1.  -(  RHOS/RO  >>  /  FS>  **0.2 
ZTEMP  -  ZD  -  Z8<N>  -  COMB(N) 

DMEP  ■  T3  *  <<  (1.  2*EP*T4*  (ZTEMP/YS)  +  1.  >**1.66667)  -  1.  ) 
C 

30  CEP  <  N  >  *  OMEC  *  DMEP 

EEP<N)  »  0.  24  *  TT  *  CEP (N> 

DO  40  I*1.NSPCS 

40  CEP(I.N)  *  OEP(N)  •  CHl(l.lC) 

SO  CONTINUE 
C 

DO  70  N-l.NFIRES 
OPENT  -  CPENT  +  CEP<N> 

C 

C  SAVE  THE  VALUE  OF  VOLUME  ENTRAINMENT  FOR  PRINT  OUT  LATER 
C 

FRENTR  <  N )  ■  OPENT  /  RO 
SPENT  -  EPENT  +  £EP<N> 

DO  60  I-l.NSPCS 

60  CPENT ( I )  »  CPENT < I >  ♦  CEPII.N) 

70  CONTINUE 
C 


RETURN 

END 


ouuuouuouuuuouuu 


1 


i 

I 

SUBROUTINE  CONV( IC,  ZD,  TU,  TL,  QU,  QL > 

C 

C/ - 

OBJECTIVE 

<1)  CONV  COMPUTES  THE  CONVECTIVE  HEAT  TRANSFER  RATE  FROM  THE  UPPER 
AND  LOWER  ZONE  SAS  TO  CABIN  SURFACES 

QU  -  TOTAL  CONVECTIVE  TRANSFER  RATE  FROM  UPPER  ZONE  (BTU/SEC) 

QL  -  TOTAL  CONVECTIVE  TRANSFER  RATE  FROM  LOWER  ZONE  (BTU/SEC) 

IC  »  COMPARTMENT  NUMBER 

ZD  -  THERMAL  DISCONTINUITY  POSITION  (FT) 

TU  -  UPPER  ZONE  QAS  TEMPERATURE  <R> 

TL  -  LOWER  ZONE  QAS  TEMPERATURE  <R> 


C /— 
C 


C 

C 


10 

c 


c 


COMMON/MATLS/TABX ( 18, 7, 6).  TABY(18, 7. A), NTXQ. FOXI.  RADTAB (7 ) ,  RADI. 

1  FOX (7). NMATLS. DQI. DQM<7>. CAMI, QTAB(7), ITFC20). IRAMPT, 

2  ITFC ( 20) ,  ITFCSC7). ITFS(7). ITP(20>.  ITPC(20).  ITPCS(7>, 

3  ITPE( 20 ) <  ITPESC7). I TPS (7 > ,  QC I .  QP ( 7) .  QTAB ( 7 ) • RHOI . 

4  RH0M<7),  RSI.  RTAB 1 7) . RTCI ( 10) , UTAB (7) , CNDCTY( 7 ) , XMUI. 

3  XMFI,  TKNS < 7 ) •  TSLOO.  2.  4),  TSP<2.  2.  4 ) ,  CPM( 7 ) ,  WMMTL ( 7) . 

6  WMICF. TKNSIN17) 

COMMON / CMTR Y / 1 MATL < 20 ) » IMATS<7).  IMTLP(4),  IMAX(30).  IMIN(30>, 

1  IRAYdlA),  IR AYS (22). UMAX (30). JMIN( 30 ) .  LSN.  MAXELI > NS. 

2  CH.  CL<4),  CW.  DWS.  HSTS.  IARX(40.  13).  IARY(40.  12).  ICLL. 

3  ICLR.  I END.  IFIRL.  IFIRR.  ILSTL.  ILSTR,  I0NE(9), 

4  ISSWLI  <9.  10).  ISSWLJ ( 9.  10).  ISSWRK9,  10).  ISSWRJ(9.  10), 

3  ISWSLUS.S).  ISWSRU3.S).  ISTART.  NPROJ.  IPJUL.  IPJLL, 

6  IPJUR.  IPJLR,  JEND.  JONE ( 9 ) .  JST ART ,  NJS,  NSQ.  NV,  SQWD(9>. 

7  SL.  SWD  <  20 ) . VN ( 20. 3  > . VENTH ( 24 ) . VENTW ( 24 ) . VENTT ( 24 ) . 

8  XMNC30).  XMX  (30),  XCOR  ( 9  > .  YCOR  ( 9 ) .  ZOO).  SSQWD.  TVSQ. 

9  HT1,  HT2.  HT3.  HT4  ( 10  > .  NSSTS.  SLSW.  SX  ( 30  > .  SZ  ( 30 ) , 

1  CNCTNS ( 24 ) • NCOMPS. IFRCMP. FLOW ( 24) , INTO (24 ) , VT0TAL(4 ) , 

2  FHMIN 
DATA  H/3.  3E— 4/ 

QU  -  O. 

QL  -  0. 


DO  10  I-l.LSN 

CALL  COVERd.  IC,  ZD.  AU.  AL) 

QU  -  QU  +  H  *  AU  *  (TSL(I.2. IC)  -  TU) 
QL  -  QL  ♦  H  *  AL  *  <TSL(I. l.IC)  -  TL) 
CONTINUE 


CALL  XSECt  ZD  AUPT,  ALPT  ) 

QU  -  QU  ♦  H  *  AUPT  *  (T8PC1.2. XC>  -  TU  +  TSPC2. 2, IC)  -  TU) 
QL  -  QL  ♦  H  *  ALPT  *  (TSP(l.l.IC)  —  TL  ♦  TSP(2. l.IC)  -  TL) 


RETURN 

END 


\ 


{ 

I 
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SUBROUTINE  COVER  (IS,  IC.  CD.  AU,  AL) 

c 

c/ - 

OBJECTIVE 

(l)  COVER  COMPUTES  THE  AREA  OP  EACH  CABIN  LINING  SURFACE  COVERED  BY 
CONTACT  WITH  EITHER  OR  BOTH  GAS  ZONES. 

IS  -  LINING  SURFACE  NUMBER 

ZD  »  DISCONTINUITY  POSITION 

AU  -  AREA  (FT*FT)  OF  SURFACE  IS  IN  CONTACT  WITH  UPPER  ZONE 
AL  »  AREA  ( FT *FT )  OF  SURFACE  IS  IN  CONTACT  WITH  LOWER  ZONE 
SLN»  COMPARTMENT  LENGTH 
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SUBROUTINE  XSEC (  ZD.  AREA  ) 


/ - 

OBJECTIVE: 

(1)  XSEC  COMPUTES  THE  CROSS-SECTIONAL  AREA  OF  THE  LOWER  CAS  ZONE 

GIVEN  THE  THERMAL  DISCONTINUITY  POSITION  ZD  (FT).  EFFECT  OF  SEATS 
NOT  INCLUDED 

AREA  »  LOWER  ZONE  CROSS  SECTIONAL  AREA  ( FT *FT ) 


C/ - 

C 

COMMON/GMTR Y  /  IMATL ( 20 )  .  IMATS<7),  IMTLP14),  IMAXOO).  IMINOO), 

1  IRAY< 116).  I  RAYS ( 22 ) i JMAX ( 30 ) . JMIN( 30 ) . LSN. MAXELI.  NS. 

2  CH,  CL  (4),  CW.  DWS.  HSTS.  IARX(40.  15).  I  ARY  (40,  12).  ICLL. 

3  ICLR,  I  END.  IFIRL.  IFIRR,  ILSTL,  ILSTR.  I0NE<9). 

4  ISSULK9.  10).  ISSWLJ( 9,  10).  ISSWRIC9.  10),  ISSWRJ(9.  10). 

3  ISWSL(  IS,  8 ) .  ISWSRC  IS,  8),  1ST  ART,  NPROJ,  IPJUL,  IPJLL. 

6  IPJUR,  IP JLR.  JEND,  JONE ( 9 > ,  JSTART ,  NJS. NSC. NV. SCWD ( 9) , 

7  SL.  SWD ( 20 ) .  VN ( 20,  3).  VENTH ( 24 ) , VENTW ( 24 ) . VENTT ( 24 ) . 

8  XMN ( 30 ) . XMX  <  30 ) ,  XCOR ( 9 ) , YCOR ( 9 ) , Z ( 30 ) , SSCWD. TVSC. 

9  HT1.HT2,  HT3.  HT4<  10).  NSSTS,  SLSW,  SX  ( 30) .  SZ  ( 30) . 

1  CNCTNS ( 24 ) , NCOMPS, IFRCMP, FL0W<24> , INTO< 24 ) . VTOTAL ( 4 ) , 

2  FHMIN 
DIMENSION  Y<2 1) 

C 

LSN1  »  LSN  +  1 
C 

DO  10  I-1.LSN1 
Y ( I )  -  SZ< I ) 

IF <  Y<  I )  CT.  ZD  >  Y<  I  )  *  ZD 
10  CONTINUE 
C 

SUM  *  O 
C 

DO  20  1*1  ■  LSN 

20  SUM  *  SUM  ♦  SX<I)  *  Yd*!)  -  SXU*1>  *  YU) 

AREA  *  0.  S  *  SUM " 

C 

RETURN 

END 
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SUBROUTINE  FI^Ed,  N3PCS,  CFB,  CF3.  EF3  > 

r 

C/ - 

OBJECTIVE 

(1)  FIRE  FINOS  THE  TOTAL  RATES  OF  EMISSION  OF  MASS-  SPECIES-  AND 

ENERGY  AT  THE  BASE  PLANES  OF  ALL  FIRES  IN- COMP  I.  SMOKE  AND  GAS 
GENERATION  BY  SMOLDERING  SPOTS  IS  INCLUDED  IN  THE  TOTAL  SPECIES 
RATE 

GFB  »  TOTAL  PYROLYSIS  (MASS  GENERATION)  RATE  (LBM/SEC) 

CFB  «  TOTAL  SPECIES  GENERATION  RATE  (SMOKE  AND  GASES! 

(LBM/SEC  FOR  GASES.  PART/SEC  FOR  SMOKE) 

EFB  *  TOTAL  ENERGY  (HEAT)  GENERATION  RATE  (BTU/SEC) 


/ 


COMMON/FIRES/ AFM ( 7 ) , ASM( 7 ) .  I STATE ( 120-  13).  ISTATS(9.  16.  22), 

1  I WORD ( 120,  1 3 > ,  I WORDS ( 9,  16. 22) , NFLM< 7 ) , NPYR ( 7 ) . 

2  RGS( 10. 7) , RSS17),  TOTGAS ( 10). TOTSEM.  TRGF(IO). 

3  TRGS( 10),  TRSF.  TRSS.  NCE(30>.  VITNR.  TOTVIT.  RADFIR ( 30 ) . 

4  ACM< 7 ) , AF ( 30 > ,  AFI,  AEXP. C0MBI30), DQK. FLML ( 30 ) . FSN 1 . 

3  FSN2. FSN3. GAMMA (30).  IBURN.  IF(600).  IGMNI,  IGMNJ,  IGMXI, 

6  IGMXJ,  IGNFIR,  IGNIJ(2,  100).  IGSN,  I SF I RE (30) ,  IVMAX<30). 

7  IVMINOO),  IVMN,  IVMX,  IXFIRE,  I  ZONE  ( 30 ) .  JVMAX  ( 30 ) . 

8  UVMIN(  30 ) .  JVMN,  JVMX.  K,  NFE(30),  NFIRES.  NI JC.  NIJSQ, 

9  NPE  ( 30  >  •  NSFL  ( 7 ) ,  OMEGA  ( 30  > .  PDH,  P I GN.  RF(20,  4),  RFS<7,  4). 

1  RFWS.  RGF (  10,  ?>,  RGFK(  10),  RHOZOO).  RSF(7),  RSFK,  TDQ, 

2  TBURNI,  UZ(30>,  YZ(30),  ZB (30).  RHOEFG,  CHIEFG ( 1 1 ). 

3  FLOUIN.FLWOUT.TEFG,  I FR VNT , GENR AT (11), TDGMTL ( 7 ) , 

4  TP ( 7 ) . TPC (7) 

COMMON  /PRTCMN/  ASRFUZ ( 22.  4 > , ASRFLZ ( 22, 4 ) , CVFLWU( 22,  4 ) , 

*  CVFLUL ( 22. 4  > . RDFLUU ( 22,  4 ) .  RDFLWL ( 22,  4 ) , 

»  VTFLWV ( 24,  2 ) ,  VTFLWE ( 24,  2 ) ,  FB VDOT ( 30 ) , 

*  FBSDQT ( 1 1 . 30 ) . FBQDOT ( 30 ) .  FRENTR ( 30 ) 

DIMENSION  CFB (11) 

INITIALIZE  TOTAL  GENERATION  RATES 


GFB  -  0. 

EFB  -  0. 

DO  10  N-l.NSPCS 
10  CFB(N)  -  0. 

IF  THERE  ARE  NO  CURRENT  FIRES  RETURN 
IF (  NFIRES  EG.  0  )  RETURN 

TOTAL  RATE  OF  PYROLYZATE  MASS  ADDITION  IS  FOUND  BY  SUMMING  OVER  ALL 
FIRE  BASES 

DO  20  N«l, NFIRES 

20  GFB  «  GFB  +  RHOZ(N)  *  UZ(N)  *  AF(N) 

TOTAL  RATES  OF  GAS  AND  SMOKE  GENERATION  HAVE  BEEN  SET  IN  SUBR  AFP 
UPSTREAM  FOR  THIS  TIME  STEP  RATES  INCLUDE  BOTH  FLAMING  AND  SMLDRNG 

NX  «  NSPCS  -  1 
DO  30  J*1.NX 
30  CFB ( J)  ■  GENRAT(J) 
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CFBiNSPCSi  »  TOTSEM 

TOTAL  HEAT  RELEASE  HAS  BEEN  FOUND  IN  SUER  TEST  UPSTREAM 
EFB  -  TDQ 

SAVE  THE  VOLUME  RATE  OF  FUEL  VAPOR  GENERATION  AT  THE  FIRE  BASE 

DO  40  N-l.NFIRES 
40  FBVDOT(N)  »  UZ<N)  *  AF < N ) 

C 

RETURN 

END 


subroutine  eset:  ;  x,  xnew,  NVAR.  LOT  ; 


COMMON /SMTRV,  IMATL<20>.  IMATS(7).  IMTLP.4),  IMAXOO).  II11N(30). 


1 

2 

3 

4 

5 

6 

7 

8 
9 
1 


1 

2 

3 


1 

2 

3 

1 

2 

3 

4 

5 

6 

7 

8 
9 
1 
2 

3 

4 

* 

* 


IRAY  <  116>.  IRAYS  ( 22  >  ,  JCIAXOO).  JMIN<30>,  LSN,  MAXEL I .  NS. 
CH.  CL  <  4  > ,  CW.  DUS  i  HSTS.  IARX<40,  13).  IARY(40.  12).  ICLL. 
ICLR. I END. IFIRL. IFIRR. ILSTL. ILSTR. I0NE<9>. 

ISSWLK9.  10),  ISSWLJ<9,  10),  ISSWRH9,  10),  ISSWRJ(9,  10). 
ISWSL< 13.  3)  ,  ISWSR  (  13,  B) .  1ST  ART,  NPROJ.  IPJUL,  IPJLL, 
IPUUR,  IPJLR,  JEND,  J0NE(9).  JST ART ,  NUS.  NSS,  NV,  SGWD<9>, 
SL, SWD <  20 ) ,  UN ( 20 , 3), VENTH(24),  VENTW<24>,  VENTT(24), 
XMN  ( 30 ) .  XMX  (  30 ) ,  XC0RC9),  YC0R(9),  Z<30>.  SSGWD.  TVSC, 
HT1,  HT2,  HT3,  HT 4(10),  NSSTS ,  SLSW,  SX  <  30  > .  SZ  <  30  > , 

CNCTNS ( 24 ) ,  NCQMPS.  IFRCMP, FL0WC24),  INT0<24>. VT0TAL<4) 
FHMIN 

COMMON/CNTRL/DELTAT,  DELTSP, ECOFLG,  IDELT,  IDENT<20>,  IDTPRV,  IPEMS. 

IPSPR.  IPAUX,  IRATIO.  ISAUE,  ISCALE,  ITFIN.  ITIME,  ITIM2, 
ITSPRD,  NPASS.  TFINAL.  IDBUG1.  EPSLN.  MAXITR.  MAXCUT, 
JCBSKP 

COMMON/PARAMS/GRAV,  PI  -  GTR,  RGAS.  SIGMA,  SOD,  THOU,  TOL.  EC.  EP 
COMMON /GASES/ CHIL< 11,3),  CHIU< 1 1, 3).  CP, NGAS ( 11 ), NSPCS.  PAMB. PF<3), 
RHOAM,  RHOL  (  3) ,  RHOUO),  TAM,  TL(3>,  TUO),  V0LL(3), 
V0LU<3>.  ZD  <  3 ) , XTHEN< 120 ) ,  WMOLEC < 1 1 ) .  TWO< 101 ). 
JC0R<120) 

COMMON/FI RES/ AFM  <  7 ) ,  ASM ( 7) ,  I ST ATE  < 120.  13),  I STATS ( 9,  16. 22). 

IWORD< 120.  13),  I WORDS (9,  16, 22 ) , NFLM< 7 > ,  NPYR < 7 ) , 

RCS< 10. 7) , RSS ( 7 ) , TOTQAS  < 10 ) , TOTSEM,  TRGF< 10) , 

TRGS<  10),  TRSF,  TRSS,  NCE  <  30) .  UITNR.  T0TV1T,  RADFIROO), 
ACM < 7 ) ,  AF <  30 ) ,  AF I .  AEXP,  COMB  ( 30 ) ,  DQK.  FLMLOO),  FSN1, 
FSN2.  FSN3.  GAMMA < 30 ) .  I BURN,  IF<600),  IGMNI.  IGMNJ.  IGMXI, 
IGMXU.  IGNFIR,  IGNIJ<2,  100),  IGSN.  ISFIREOO),  IVMAXOO), 
IVMINOO).  IUMN,  IVMX,  IXFIRE,  I  ZONE  <30  > ,  JVMAX  <30 ) , 

JVM  IN  <  30) .  UVMN,  JVMX,  K,  NFE  (30) ,  NFIRES-  NIJC.  NIJSO, 

NPE  <  30 ) .  NSFL  <  7  > . OMEGA  <  30 ) . PDH, PICN,  RF<20,  4).  RFS<7,  4) 
RFUS. RGF  < 10. 7 ) , RCFK ( 10 ) , RHOZ  <  30 ) , RSF  <  7  > , RSFK,  TDQ. 
TBURNI . UZ  <  30 ) , YZ ( 30 ) , ZB < 30 ) . RHOEFG, CHIEFG (11), 
FLQWIN,  FLWOUT,  TEFG.  I FRONT , CENRAT (11). TDQMTL ( 7 ) , 

TP ( 7 ) , TPC  <  7 ) 

COMMON  /PRTCMN/  ASRFUZ <22. 4 ) , ASRFLZ < 22, 4 ) ,  CVFLWU < 22,  4 ) , 

CVFLWL < 22, 4) , RDFLWU ( 22,  4 ) , RDFLWL < 22,  4), 

VTFLWV  <  24. 2 ) , VTFLWE <  24, 2 ) .  FB VDOT ( 30 ) , 

FBSDOT  < 11 , 30 ) . FBGDOT <  30 ) , FRENTR <  30 ) 

DIMENSION  X ( 120 ) ,  XNEW ( 120  > 


C 


r 


C 

C 

C 

c 

c 

c 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


XCHIL <  1 1 ,  3).  XCHIU (  1 1 ,  3).  XPF<3),  XRHOLO).  XRHOUO) 

XTU  <  3 ) .  XTL  <  3 ) .  XVOLUO).  XVOLL(S).  XZD<3) 

GVU  <  3  > .  GVL <  3 ) 

CVU<11,3),  CVL <11,  3 ) 

EVU<3).  EVL  <  3 ) .  0CVNU<4>,  0CVNL(4).  QRDU<4),  GRDL ( 4 ) 
CFB (11).  CPENT 111) 


DIMENSION  RHSCU< 4 > , 
DIMENSION  RHSEU ( 4 ) . 
DIMENSION  TMASSU < 4 ) 
DIMENSION  ENRGYU < 4 ) 


RHSCL ( 4 ) ,  RHSSU (11,4),  RHSSL<11.4> 
RHSEL  <  4 ) 

TMASSU  4).  SPCSU  (11,4),  SPCSL<11,4' 
ENRGYL  <  4 ) 


LOGICAL  FIRST 

THE  SWITCH  'FIRST'  IS  USED  TO  DIRECT  THE  EVALUATION  OF  THE 
CONSERVATION  EQUATIONS.  IF  FIRST  ■  TRUE  EVALUATION  IS  FOR  TIMS  T. 

IF  FIRST  ■  FALSE  EVALUATION  IS  FOR  TIME  T  ♦  DT. 


FIRST 


TRUE. 


c 

C  VARIABLES  RhSCU.  .  RHSEL  STORE  THE  R ISHT  HAND  SIDES  OF  THE 
C  CONSERVATION  EQUATIONS  EVALUATED  AT  TIME  T 
C 

DO  10  Naj, NCQHRS 
RHSCU(N)  «  0. 

RHSCL.tN)  >  0. 

RHSEU(N)  -  0. 

RHSEL (N)  >  o. 

DO  9  Jal-NSPCS 
RHSSUCJ.  N)  a  o 

9  RHSSL  <  J,  N)  •  0. 

10  CONTINUE 
C 

CO  TO  20 
C 

C  ENTRY  ESET2  IS  USED  FOR  EVALUATION  OF  THE  VARIABLES  AT  T  *  DT. 
C 

ENTRY  ESET2I  X.  XNEW,  NVaR.  LOT  ) 

FIRST  a  .  FALSE. 

C 

20  CALL  SCALE  <  *1 . X. NVAR i 
C 

C  CONVERT  LDT  TO  THE  TIME  STEP,  DT,  IN  SECONDS 
C 

DT  a  LDT 

DT  -  DT  /  1000. 

C 

C  TRANSFER  <X>  TO  LOCAL  WORKINO  VRBLS  WITH  DESCRIPTIVE  NAMES 
C 

I  -  O 

DO  30  N2-1.NC0MPS 
DO  29  Nlal.NSPCS 
I  -  I  +1 

29  XCHILINl,  N2)  a  X  < I ) 

DO  27  Nlal.NSPCS 
I-I  +  l 

27  XCHIU<N1.N2)  a  XU) 

XPF(N2>  -  XU+l) 

XRHOL ( N2 )  a  X ( 1+2 ) 

XRHOU  ( N2  )  •  XU+3! 

XTL(N2)  a  X!I*4) 

XTUIN2)  a  XU-t-9) 

XV0LL(N2)  a  XII+6) 

XV0LUIN2)  -  X ( 1+7) 

X2DIN2)  ■  XU+B) 

30  I  -  I  +  8 
C 

C  TRANSFER  THE  VALUES  FOR  THE  EXTERIOR  COMPARTMENT 
C 

DO  32  Nl“l,  NSPCS 
XCH1LCN1, 9)  ■  CHIL(N1,  9) 

32  XCHIU < N1 , 9)  -  CHIUINl ,  9 ) 

XPF ( 9)  -  PF< 9) 

XRHOL(  9)  a  RHOLO) 

XRHOU <  9 )  a  RHOU ( 9 ) 

XTL( 9)  -  TL<  9) 

XTU<  9)  -  TU<  9) 

XZD( 9)  a  ZD( 9) 

C 

C  INITIALIZE  MASS,  SPECIES,  AND  ENERGY  TRANSFER  TERMS 


A-85 


i 


uuuoo  uouu  uoo  uuu 


DO  50  I»l,NC0MPS 

Gvum  ■  o. 

GVL(I)  »  o. 

DO  40  J»1,NSPCS 

cvu<  j,  i )  -  o. 

40  CVL  ( J.  I )  -  0. 

c 

EVUfI)  -  0. 

EVLfl)  a  0. 

acvNLc i)  -  o. 

GCVNUfI)  ■  0. 

QRDUfI)  -  0. 

QRDL  ( I  )  »  0. 

SO  CONTINUE 
C 

OUIJ  -  0 
GLIJ  -  0. 

CUJI  >  0. 

GUJI  ■  0. 

THIS  LOOP  OVER  ALL  VENTS  ESTABLISHES  THE  FLOWS  OF  HASS.  SPECIES.  AND 
ENEROY.  ARRAY  CNCTNS  SHOWS  WHICH  VENTS  CONNECT  WHICH  COMPARTMENTS. 
COMPARTMENT  5  IS  THE  EXTERIOR  ALWAYS. 

DO  90  IVal, NV 
I  ■  CNCTNS < IV)  /  10. 

J  ■  CNCTNS < IV)  -  I  *  10 

IF<  FLOW (IV)  NE.  0.  )  GO  TO  70 

IF (  IV  EO.  IFRVNT  )  60  TO  BO 

SUBR.  VENT  FINDS  FLOW  RATES  BETWEEN  COMPARTMENTS  AND  TO/FROM 
THE  OUTSIDE. 

CALL  VENT <  IV.  XPF(I).  XPF(J).  XZD(I).  XZDCJ).  XRHOU(I),  XRHOU(J). 
•  XRHOL ( I ) .  XRHOL(J).  OUIJ.  GUJI.  GLIJ.  GLJI  > 

SAVE  THE  NET  FLOWS  OF  VOLUME  AND  ENERGY  FOR  LATER  PRINT  OUT 

59  CONTINUE 

VTFLWVdV.  2)  ■  ABS<  <  OUIJ  /  XRHOU(I)  )  -  C  OUJI  /  XRHOU(J)  )  > 

VTFLWV< IV. 1 )  ■  ABS(  (  GLIJ  /  XRHOL(I)  )  -  f  GLJI  /  XRHOL(J)  )  ) 

XEIJU  -  OUIJ  *  CP  *  XTU< I ) 

XEIJL  *  CLIJ  *  CP  *  XTL  <  I ) 

XEJIU  ■  GUJI  *  CP  *  XTU< J) 

XEJIL  -  GLJI  *  CP  *  XTL < J) 

VTFLWECIV, 2)  -  ABS<  XEIJU  -  XEJIU  > 

VTFLWE< IV. 1 )  ■  ABS<  XEIJL  -  XEJIL  > 

COMPUTE  MASS,  SPECIES.  AND  ENEROY  FLOW  RATES  BY  COMP  AND  ZONE 

ovud)  •  ovum  -  ouij  +  guji 

0VL ( I )  a. CVL ( I)  -  GLIJ  ♦  GLJI 
QVU<J>  a  CVUfJ)  -  GUJI  +  GUI J 
OVL(J)  ■  OVL <  J )  -  GLJI  +  GLIJ 
C 

DO  60  KK«1 , NSPCS 

CVUIKK. 1)  a  CVU<KK.  I)  -  OUIJ  •  XCHIU«KK.  I)  *  CUJI  *  XCHlUfKK.  J> 

CVL(KK. I )  a  CVLfKK, I)  -  GLIJ  *  XCHILfKK. I)  t-  GLJI  *  XCHILfKK. J) 

CVUfKK.J)  a  CVUfKK. J)  -  OUJI  *  XCHIU < KK. J )  ♦  OUIJ  *  XCHIU<KK,  I) 

CVL f KK. J )  a  CVLfKK. J)  -  GLJI  *  XCHILfKK. J>  *  GLIJ  *  XCHILfKK,  I) 
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60  CONTINUE 
C 


EVU ( I ) 

a 

EVU  ( I  )  -  OU I U 

4 

CP 

« 

XTU ( I ) 

♦ 

GUJI 

« 

CP 

* 

XTU ( J ) 

£VL( I ) 

a 

EVL ( I )  -  OLIU 

* 

CP 

* 

XTL ( I ) 

4- 

OLJI 

* 

CP 

* 

XTL ( J ) 

EVU( J) 

a 

EVU ( J )  -  OUJI 

* 

CP 

* 

XTU( J) 

4 

CU1J 

* 

CP 

* 

XTU( I ) 

EVU  J) 

■ 

EVL(J)  -  OLJI 

• 

CP 

« 

XTL ( J ) 

4 

OLIJ 

* 

CP 

« 

XTL ( 1 ) 

00  TO  90 
C 

C  FORCED  (PRESCRIBED)  FLOW  VENT 
C 

70  ZZ  -  XZD(I) 

IF <  INTO ( I V )  .  EQ.  I  )  ZZ  •  XZD(J> 

FCTR  •  1.  +  (  ZZ  -  VENTT(IV)  >  /  VENTH(IV) 

IF  (  FCTR  .  OT.  1.  )  FCTR  ■  1. 

IF (  FCTR  .  LT.  0.  )  FCTR  »  0. 

IF <  INTO < I V )  .  EQ.  I)  00  TO  73 

GUIJ  ■  XRHOU(I)  *  FLOW(IV)  *  (1.  -  FCTR) 

OLIJ  -  XRHOL(I)  *  FLOW(IV)  *  FCTR 

00  TO  S3 

73  GUJI  *  XRHOU(J)  *  FLOWCIV)  *  (I.  -  FCTR) 

OLJI  *  XRHOL(J)  *  FLOW(IV)  *  FCTR 

00  TO  33 
C 

C  FLOW  CONDITIONS  AT  VENT  WITH  EXTERIOR  FIRE.  FLOW  IS  INTO  COMP.  J 
C 

BO  OVU(J)  »  QVU(J>  +  RHOEFO  •  FLOWIN 

CVL(J)  *  GVL(J>  -  XRHQL(J)  *  FLWQUT 
VTFLWVUV.  2)  -  FLOWIN 
VTFLWV  < IV.  1 )  ■  FLWOUT 
C 

DO  82  KK»1, NSPCS 

CVU ( KK, J )  *  CVU«KK, J)  +  RHOEFO  *  FLOWIN  *  CHIEFG(KK) 

82  CVL(KK.J)  ■  CVL<KK.  J)  -  XRHOL(J)  *  FLWOUT  *  XCHILCKK, J) 

C 

EVU(J)  -  EVU(J)  +  RHOEFO  *  FLOWIN  *  CP  *  TEFO 
EVL(J>  -  EVL(J)  -  XRHOL(J)  *  FLWOUT  *  CP  *  XTL(J) 

VTFLWEdV.  2)  »  FLOWIN  *  RHOEFO  *  CP  *  TEFC 
VTFLWEdV,  I)  -  FLWOUT  *  XRHOL(J)  *  CP  *  XTL(J) 

90  CONTINUE 
C 

DO  lOO  I-l.NCOHPS 
C 

C  SUBR  CONV  FINDS  THE  CONVECTION  HEAT  TRANSFER  FROM  THE  OAS  ZONES  TO  THE 
C  CABIN  SURFACES 
C 

CALL  CON V<  I.  XZD(I).  XTU(I).  XTL(I).  QCVNU(I),  QCVNL(I)  ) 

C 

C  SUBR  RADTN  FINDS  THE  NET  RADIATION  HEAT  TRANSFER  FROM  THE  OAS  ZONES  TO 
C  CABIN  SURFACES 
C 

CALL  RADTN < I .  XZDd).  XTU(I), XTL(I). XCHIU.  XCHIL, XRHOU(I). XRHOL(I). 

•  NSPCS.  XVOLU(I).  XVOLL(I).  QRDU(I).  QRDL(I)  ) 

C 

100  CONTINUE 
C 

C  FOR  THE  COMPARTMENT  CONTAINING  INTERIOR  FIRES  (IF  ANY).  SUBR  PLUME 
C  FINDS  THE  ENTRAINMENT  EXCHANGE  BETWEEN  ZONES 
C 

I  -  IFRCMP 

CALL  PLUME (  XZD(I>.  XRHOL(I).  XTL(I).  XCHIL,  NSPCS.  I. 

*  OPENT,  CPENT.  EPENT  ) 
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SET  DTHLF  -  0.  9  *  DT  FOR  USE  IN  THE  INTEGRATIONS 
OTHLF  -  0.  9  *  DT 

ON  THE  FIRST  PASS  FOR  A  TIME  STEP,  JUMP  TO  STMT  170  TO  EVALUATE  RHS 
OF  THE  CONSERVATION  EOUATIONS  AT  TIME  T 

IF<  FIRST  >  SO  TO  170 

ON  SUBSEQUENT  PASSES  EVALUATE  ALL  VARIABLES  AT  TIME  T  ♦  DT 
DO  160  1*1. NCOHPS 

TMASSU ( I >  ■  RHSCU(I)  ♦  DTHLF  •  CVU(I) 

TMASSL ( I )  •  RHSCL ( I )  *  DTHLF  *  GVL  t I > 

DO  110  J-l. NSPCS 

SPCSU1J. I)  *  RHSSUtJ. I)  +  DTHLF  *  CVUtJ. I) 

110  SFCSL  <  J.  I  >  *  RHSSL  ( J<  I )  *  DTHLF  •  CVHJ.  I) 

ENROYUd)  *  RHS£U<  I )  ♦  DTHLF  *  (  EVUd)  +  OCVNU(I)  ♦  QRDUd)  ) 

ENROYLd)  ■  RHSEL(I)  ♦  DTHLF  *  (  EVLd)  ♦  QCVNL(I)  *  QRDL (  I  )  ) 

FOR  THE  COMPARTMENT  CONTAINING  INTERIOR  FIRE(S)  ADD  THE  EFFECTS  OF 
THE  PLUME  ENTRAINMENT 

IF <  I  NE.  IFRCMP  )  SO  TO  130 
TMASSU (I )  *  TMASSU (1)  ♦  SPENT  *  DTHLF 
TMASSL (I)  ■  TMASSL < I)  -  SPENT  *  DTHLF 

DO  ISO  J-l. NSPCS 

SPCSUIJ. I)  -  SPCSU«J.  I)  CPENT(J)  *  DTHLF 

ISO  SPCSL < J.  1 )  •  SPCSLC J.  I )  -  CPENT(J)  *  DTHLF 

ENROYU(l)  -  ENRGYUd)  ♦  EPENT  *  DTHLF 
ENROYLd)  -  ENROYLd)  -  EPENT  *  DTHLF 

130  CONTINUE 

COMPUTE  THE  NEW  VALUES  OF  PRESSURE.  SAS  ZONE  VOLUMES.  AND  LOWER  ZONE 
THICKNESS 

PSAVE  -  XPF  < I ) 

WMIX  -  0. 

IF<  XRHOL(I)  EQ.  0.  )  GO  TO  134 

C 

DO  133  J*l.  S 

132  WMIX  -  WMIX  +  XCHILfJ. I)  *  WMOLEC(J) 

XPFd)  -  XRHOLd)  *  RGAS  *  XTL(I>  *  GRAV  /  WMIX 
GO  TO  138 
C 

134  DO  136  J-l.  9 

136  WMIX  -  WMIX  +  XCHIU(J. I)  •  WMOLEC(J) 

XPFd)  -  -XRHQU ( I )  *  RGAS  *  XTUd)  *  GRAV  /  WMIX 
138  CONTINUE 
C 

V8AVE  -  XVOLL ( I ) 

XVOLLd)  -  VTOTALd)  -  XVOLU(I) 

C 

WMIX  -  0. 

DO  140  J-l.  9 
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140  Unix  -  UNIX  ♦  XCHJLMJ. I)  *  WHCLEC ( J ) 

XVQLUi 1 )  -  XRHOU< I >*XVOLU< t >*RGAS*XTU< 1 >*GRAV  /  <  PSAVE  *  WMIX  ) 

C 

ZDSAVE  •  XZD< I ) 

CALL  HE  I OHT  <  I,  V8AVE.  ZDSAVE.  XZD<I>  > 

C 

C  FIND  THE  NEW  VALUES  OF  THE  DENSITIES.  MASS  FRACTIONS.  AND  TEMPERATURES 
C  FROM  THE  MASSES  AND  ENERGIES 
C 

190  CONTINUE 
C 

IF t  XVOLU(I)  .  LE.  0.  )  GO  TO  192 

XRHQ> '(  1  )  «  TMASSU(I)  /  XVOLU(I) 

C 

192  IF  <  XVOLL  ( I  )  .  LE.  0.  )  GO  TO  194 

XRHOL  i  I  >  ■  *i  MASSL  ( I )  /  XVOLL  ( I  > 

C 

194  1F<  THASSL(I)  LE.  0  >60  TO  194 
DO  199  J-l.NSPCS 

199  XCHIL ( J. I >  «  SPC8L( J> I )  /  TMASSL(I) 

XTL(I)  -  ENRQYL ( I )  /  <  CP  *  TMASSL(I)  > 

C 

194  IF (  TMASSUd)  LE.  0.  >  GO  TO  198 
DO  197  Jal.NSPCS 

197  XCHIU<J. I)  a  SPCSUIJ. I)  /  THASBU ( I > 

XTU(I)  -  ENRGYU< I >  /  <  CP  *  TMASSUCI)  ) 

C 

198  CONTINUE 
C 

140  CONTINUE 
C 

C  LOAD  THE  NEW  VARIABLES  INTO  <XNEW>  AND  SCALE  DOWN  TO  SCALED  MAGNITUDES 
C  BEFORE  RETURNING 
C 

I  •  0 
C 

DO  149  N2“l.  NC0MP9 
C 

DO  142  Nl-1.  NSPCS 

I  a  I  ♦  1 

142  XNEW< I >  a  XCHIL < N1 ,  N2 > 

C 

DO  144  Nl-1,  NSPCS 
1-1*1 

144  XNEW(I)  -  XCHIU < N1 , N2 ) 

C 

XNEW(I+t)  "  XPF ( N2 J 
XNEWC 1*2)  -  XRHOL ( N2 ) 

XNEW( 1*3)  -  XRH0U1N2) 

XNEW < I *4 )  -  XTL1N2) 

XNEW( 1*9)  -  XTU<  N2 ) 

XNEW ( 1*6)  ■  XVOLL ( N2  > 

XNEWtI+7)  -  XVOLU ( N2 > 

XNEW( t*8)  >  XZD ( N2 ) 

149  1-1*8 

C 

CALL  SCALE <  ~1<  XNEW.  NVAR ) 

CALL  SCALE! -1.  X.  NVAR  ) 

C 

RETURN 

C 


nnn  o  o  r>  r>  oooo 
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C  ESTABLISH  THE  PARTS  OF  THE  RI3HT  HAND  SIDES  OF  EACH  CONSERVATION 
C  EQUATION  THAT  ARE  FUNCTIONS  OF  TIME  T 

c 

170  CONTINUE 
C 

DO  ISO  I-l.NCOMPS 

RHSCU(I)  *  XRHOU(I)  *  XVOLUf  I )  ♦  DTHLF  *  SVUtl) 

RHSCL ( I )  -  XRHOLt  I )  *  XVOLLd)  ♦  DTHLF  *  QVL(I) 


C 

178 

C 


DO  178  U-l,  NSPCS 

RHSSUI  J. I )  •  XCHIUtJ.l)  *  XRHOUt I >  *  XVOLU( I )  +  DTHLF  *  CVUtJ. I) 
RHSSL  ( J>  1  >  •  XCHILtJ,  I)  *  XRHOLt  I  >  *  XVOLLd)  *  DTHLF  *  CVLtJ.  I) 


RHSEUt  I )  -  CP  *  XRHOUd)  *  XVOLUd)  *  XTUd)  ♦  <  EVU(I)  +  QCVNUd ) 

•  ♦  ORDUd)  )  •  DTHLF 

RH8EL  ( I  >  -  CP  *  XRHOLt  1  >  *  XVOLLd)  *  XTL  (  I  >  ♦  t  EVLtI)  *  QCVNLtI) 

•  +  QRDLt I )  )  •  DTHLF 


FOR  THE  COMPARTMENT  CONTAINING  INTERIOR  FIRE(S)  ADD  THE  EFFECTS  OF 
THE  PLUME  ENTRAINMENT  AND  QENERAT10N  AT  THE  FIRE  BASES 


IF t  I  NE.  IFRCMP  >  QO  TO  180 

CALL  FIREt  I.  NSPCS.  8FB.  CFB.  EFB ) 

RHSCUtI)  *  RHSCUd)  ♦  DT  *  CFB  ♦  DTHLF  *  GPENT 
RHSCL  f  I )  -  RHSCL  d)  -  DTHLF  *  SPENT 

DO  174  J«l. NSPCS 

RHSSUtJ.  I)  -  RHSSUtJ.  I>  «■  DT  *  CFB t J )  +  DTHLF  *  CPENT(J) 
174  RHSSL t J.  I >  -  RHSSLtU.  I)  -  DTHLF  *  CPENTfJ) 

RHSEUt I )  »  RHSEUt I )  +  DT  *  EFB  ♦  DTHLF  *  EPENT 
RHBELtI)  -  RHSELtI)  -  DTHLF  *  EPENT 
ISO  CONTINUE 

SCALE  DOWN  THE  <X>  VECTOR  TO  SCALED  MAONITUDES  AND  RETURN 


CALL  SCALEt  -1.  X.  NVAR  ) 

RETURN 

END 


subroutine  height  (  :c.  vnew,  zdg.  :d  » 
c 

c/ - 

C  OBJECTIVE 

C  (D  HEIGHT  FINDS  THE  LOWER  ZONE  DEPTH  (THERMAL  DISCONTINUITY  POSITION) 
C  GIVEN  THE  LOWER  ZONE  VOLUME,  VNEW,  AND  A  FIRST  GUESS  AT  ZD.  ZDG. 

C/ -  - 

c 

COMMON/CNTRL/DELTAT, DELTSP, ECOFLG, IDELT, IDENT(20>, IDTPRV. IPEHS, 

1  IPSPR.  IPAUX,  IRATIO,  ISAVE.  ISCALE,  ITFIN,  I T I  ME ,  ITI-12, 

2  ITSPRD,  NPASS,  TFINAL,  IDBUG1.  EPSLN, MAXITR  AXCUT. 

3  JCBSKP 

COMMON/GMTRY/ IMATL  (  20 ) ,  IMATS<7>.  IMTLP(4),  IMAX130'.  IMIN(30). 

1  IRAY< 1 16). IRAYS(22> . JMAX <30> . JMIN<30) . LSN. HA > ~l :  NS. 

2  CH,  CL  (  4  ) ,  CW,  DWS.  HSTS.  I ARX  (  40,  15),  I  ARY  (  40.  12;.  .CL-. 

3  ICLR.  I END.  IFIRL.  IFIRR.  ILSTL.  ILSTR.  I0NEC9) 

4  ISSWLI  ( 9,  10).  ISSWLJC9,  10).  ISSWRI  (9,  10).  ISSWRJ<9,  1 

5  ISWSL  (19,  8),  ISWSR  ( 1 5,  8),  1ST  ART,  NPROJ,  IPJUL,  IPJLL. 

6  IP JUR.  IPJLR,  JEND.  J0NE(9),  JSTART .  NJS.  NSC.  NV.  SGWD(9). 

7  SL,  SWD ( 20 ) ,  VN ( 20,  3) .  VENTH<24) , VENTW < 24 ) , VENTT(24) , 

8  XMNOO),  XMXI30).  XCOR  ( 9 ) ,  YCOR  ( 9) .  ZOO).  SSGWD,  TVSG. 

9  HT1,  HT2.  HT3.  HT4<  10).  NSSTS.  SLSW.  SX  ( 30 ) .  SZ  (  30 ) . 

1  CNCTNS ( 24 ) , NCOMPS.  IFRCMP ,  FLOW ( 24 ) .  INTO ( 24 ) , VTOTAL < 4 ) , 

2  FHMIN 
C 

C  INITIALIZE  ZD  AND  RETURN  IF  VNEW  -  0 
C 

ZD  -  0. 

IF (  VNEW  LE.  0.  )  RETURN 

C 

C  MAKE  AN  INITIAL  ESTIMATE  OF  ZD 
C 

ZD1  -  ZDG 

ANEW  *  VNEW  /  CLUC) 

ITT  -  0 
C 

C  USE  SUBR  XSEC  TO  VERIFY  THE  GUESS 
C 

10  ITT  ■  ITT  ♦  | 

CALL  XSEC (  ZD1.  A1  ) 

C 

C  CONSIDER  ZD  TO  BE  FOUND  IF  XSEC  GIVES  A  LOWER  CROSS-SECTION  AREA 
C  WITHIN  0.  I  7.  OF  THE  DESIRED  VALUE. 

C 

DIFF  -  ABS<  ANEW  -  At  ) 

TOL  ■  0.  001  •  ANEW 
IF (  DIFF  .  LT.  TOL  >  GO  TO  20 
C 

C  ALLOW  ONLY  10  TRIES  AT  THIS  ITERATIVE  SOLUTION  BEFORE  STOPPING 
C 

IF (  ITT  ,  GT.  10  )  GO  TO  30 
C 

C  CORRECT  THE  GUESS  IN  PROPORTION  TO  THE  DIFFERENCE  AND  TRY  AGAIN 
C 

ZD1  -  ZD1  *  (  2.  -  A1  /  ANEW  ) 

00  TO  10 
C 

20  ZD  *  ZD1 
RETURN 
C 

30  WRITE(6.  99)  ITIME,  IC,  ZDG,  ZD.  ZD1 ,  ANEW,  Ai ,  TOL,  DIFF 
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99  format; 1H1. 2X.  CONVERGENCE  FAILURE  IN  SUBR  HEIGHT.  TIME  110/ 

*  2X,  110.  6E15.  7  /  <  IX,  6E15 .7  )) 

STOP 

END 
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VUP. 


SUBROUTINE  RADTNdC,  ZL,  TU,  TL,  CHIU,  CHIL,  ROU,  ROL.  NSPCS. 
*  VLO.  GRU.  QRL  > 


OBJECTIVE 

(1)  RADTN  FINDS  THE  NET  RADIATION  HEAT  TRANSFER  AMONG  THE  UPPER 
AND  LOWER  GAS  ZONES  AND  THE  CABIN  SURFACES. 

INPUT  VARIABLES. 

IC  »  COMPARTMENT  NUMBER 

ZL  ■  LOWER  ZONE  DEPTH  (FT) 

TU,  TL  =  UPPER  AND  LOWER  ZONE  TEMPERATURES  (R) 

CHIU,  CHIL  -  UPPER  AND  LOWER  ZONE  COMPOSITION  ARRAYS  (MASS  FRAC ) 
NSPCS  ■  NUMBER  OF  SPECIES 
VUP.  VLO  -  UPPER  AND  LOWER  ZONE  VOLUMES 
OUTPUT 


QRU 

-  NET 

RADIATION 

HEAT 

GAIN 

RATE 

BY 

UPPER 

ZONE 

( BTU/SEC ) 

QRL 

-  NET 

RADIATION 

HEAT 

GAIN 

RATE 

BY 

LOWER 

ZONE 

( BTU/SEC ) 

COMMON/MATLS/TABX < IS,  7,  6), TABY( IS, 7,  6),  NTXG,  FOX  I,  RADTAB ( 7 ) ,  RADI , 

1  FOX ( 7 ) . NMATLS, DQI. DQM ( 7 ) , CAMI,  CTAB ( 7 ) ,  ITF(20),  IRAMPT, 

2  I TFC < 20 ) ,  ZTFCS(7>,  ITFS(7>,  ITP(20),  ITPC120), 1TPCS(7), 

3  ITPE(20>,  ITPES<7) ,  ITPSI7),  GCI, QP ( 7 ) , QTAB ( 7 ) , RHOI , 

4  RH0M(7),  RSI,  RTAB (7), RTGI<  SO), UTAB ( 7 ) , CNDCTY ( 7 ) ,  XMUI. 

3  XMFI,  TKNS < 7 ) ,  TSL ( 30.  2.  4),  TSP(2,  2,  4 ) ,  CPM ( 7 ) ,  WMMTL (7) , 

6  WMIGF, TKNSIN(7) 

COMMON/PARAMS/GRAV,  P I ,  GTR, RGAS. SIGMA,  SOD,  THOU, TOL, EC, EP 
COHHQN/GMTRY / IMATL ( 20 ) , IMATS(7>. IMTLP(4>, IMAX(30>, IMIN(30>. 

1  IRAY( 116).  I RAYS (22) . JMAX(30>, JMIN(30) ,  LSN,  MAXELI.  NS, 

2  CH,  CL<4>,  CW,  DWS,  HSTS.  IARX(40.  13),  IARY(40.  12).  ICLL, 

3  ICLR. I END, IFIRL, IFIRR. ILSTL- ILSTR, I0NE(9) . 

4  ISSWLI  (9,  10),  ISSWLJt 9,  10).  ISSWRK9,  10).  ISSWRJ(9,  10), 

3  ISWSL(  13.  S).  ISWSR  (  IS,  S).  ISTART,  NPROJ.  IPJUL.  IPJLL, 

6  IPJUR,  IPJLR,  JEND,  JONE ( 9) ,  JSTART,  NJS,  NSG,  NV,  SGWD(9), 

7  SL,  SWD(20 ) ,  VN( 20.  3),  VENTH(24>, VENTW(24), VENTT(24), 

8  XMN ( 30 ) ,  XMX ( 30 ) ,  XCOR(?><  YC0R(9) ,  ZOO).  SSGWD.  TVSC, 

9  HT1.  HT2,  HT3.  HT4<  10),  NSSTS,  SLSW,  SX  ( 30) .  SZ  (  30 ) , 

1  CNCTNS ( 24 ) , NCOMPS, IFRCMP, FLOW ( 24 ) , INT0< 24 ) . VTOTAL ( 4 ) . 

2  FHMIN 

C OMMON /RADTN/ ALP C. ABSCF (30) . EB,  QC  C 2 > 

DIMENSION  CHIUdt,  4),  CHIHll-4) 

QRU  »  0 
QRL  -  0 

FIND  APPROXIMATE  GAS  ZONE  SURFACE  AREAS 

AUT  ■  2.  *  (  CL(IC)  *  CW  +  (  CH  -  ZL  )  *  (  CW  CLdC)  )  ) 

ALT  -  2.  *  (  CLdC)  *  CW  *  ZL  *  (  CW  +  CHIC)  »  ) 
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Hi 
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C  COMPUTE  MEAN  SEAM  _ENGTHS  \ FT ) 

C 

3LMU  ■  0 

IF<  AUT  NE.  0  >  BLMU  *  3.  6  *  VUP  /  AUT 

BLML  -  0 

IF<  ALT  NE.  0.  >  BLML  -  3.  6  *  VLO  /  ALT 

ZONE  EM1TTANCES  (GREY  GAS  APPROXIMATION) 

SCL  *  CHIL<NSPCS, IC)  *  ROL 
SCU  »  CHIUCNSPCS, 1C)  *  ROU 

EGL  -  1.  -  EXP  (  -  (  0  1094  *  SCL  +  0.1  >  *  BLML  ) 

ECU  *  1.  -  EXP  <  -  <  0  1094  *  SCU  +01  )  *  BLMU  > 

RDJATION  EMITTED  BY  EACH  ZONE 

QREMTU  »  SIGMA  #  EGU  *  AUT  *  (TU  **4> 

QREMTL  ■  SIGMA  *  EGL  *  ALT  *  (TL  **4> 

RADIATION  ABSORBED  BY  EACH  ZONE  WHICH  WAS  EMITTED  BY  SURFACES  IN 
CONTACT  WITH  IT 

XXU  «  0. 

XXL  •  0. 

DO  10  J-l, LSN 

CALL  COVER  (d.  IC.  ZL.  AU.  AL  ) 

XXU  -  XXU  +  AU  *  <  TSL(J. 2. IC)  **4 > 

10  XXL  -  XXL  +  AL  *  <  TSLCJ. l.IC)  **4 ) 

CALL  XSEC  <  ZL.  AUPT,  ALPT  ) 

XXU  -  XXU  +  AUPT  *  (<  TSP(  1.  2.  IC)  )**4  +  <  TSP  <2.  2.  IC )  )  **4  ) 

XXL  -  XXL  ♦  ALPT  *  <<  TSP ( 1 , 1 . IC ) > **4  *  ( TSP t 2. 1 . IC ) > **4 ) 

XXU  -  XXU  +  EGL  *  CW  *  -CL( IC)  *  TL  **4 

XXL  *  XXL  ♦  ECU  *  CW  *  CL(IC)  *  TU  **4 

GRABU  ■  XXU  *  SIGMA  •  EGU 
GRABL  *  XXL  •  SIGMA  •  EGL 

NET  RADIATION  RATE  OF  HEAT  CAIN  FOR  EACH  ZONE 

QRU  *  OR ABU  -  QREMTU 
QRL  -  QRABL  -  QREMTL 

IF  THIS  IS  THE  INTERIOR  FIRE  COMPARTMENT  SET  THE  FLUX  LEVELS  QC ( 1 )  AND 
QC(2)  FOR  USE  IN  SUBR  RATES  ON  THE  NEXT  FLAME  SPREAD  PASS 

IF <  IC  .  NE.  IFRCMP  )  RETURN 

COMPUTE  APPROXIMATE  VIEW  FACTOR  FOR  RADIATION  FROM  THE  UPPER  ZONE 
GAS  TO  TARGETS  IN  THE  LOWER  ZONE 

OIST  -  2.  *  ZL 
VF  ■  1.0 

IF<  SI8T  LE.  O.  )  00  TO  30 

XX  ■  CW  /  DIST 

YY  -  CL(IC)  /  DIST 

XR  *  SQRT<  1.  +  XX  *  XX  ) 
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,'Y  *  AT  AN  ( X  X / YR  >  /  YR  > 


YR  »  SGRTC  1.  +  YY  *  »Y  > 

VF  »  <  XX  *  ATAN( YY/XR >  /  XR  )  ♦ 

VP  *  2  *  V/F  /  PI 

20  CONTINUE 

FIND  QC ( 2 ) >  FLUX  TO  TARGETS  IN  THE  UPPER  ZONE 
QC<2>  *  QREMTU  /  AUT 

FIND  QCtn.  FLUX  TO  TARGETS  IN  THE  LOWER  ZONE 

Qccn  »  a.  -  eglj  *  vf  *  egu  *  sigma  *  (tu**4> 
c 

RETURN 

END 


o  n  o 


subroutine  srftmp 


c 

c/ 

c 

c 

c 

r 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c/ 

c 


OBJECTIVES 

(1)  SRFTMP  COMPUTES  THE  NEW  AVERAGE  SURFACE  TEMPERATURES  OF  THE  LINING 
MATERIALS  SURFACES  AND  THE  PARTITION  SURFACES 

(2)  THE  CONVECTIVE  AND  RADIATIVE  HEAT  FLOWS  TO  THE  SURFACES  ARE  ALSO 
COMPUTED  FOR  OUTPUT  DOWNSTREAM 

COMMENTS 

(1)  THE  VIEW  FACTOR  FOR  RADIATION  FROM  THE  UPPER  ZONE  REACHING  SURFS 
IN  CONTACT  WITH  THE  LOWER  ZONE  IS  A  CONSTANT  (VERY)  ROUGH 
ESTIMATE  OF  0.  5  IN  THIS  VERSION 


COMMON/CNTRL/DELTAT, DELTSP, ECOFLG,  IDELT,  IDENT(20>,  IDTPRV,  IPEMS, 

1  IPSPR,  IPAUX.  IRATIO,  1SAVE,  ISCALE.  ITFIN,  I T I  ME .  ITIM2, 

2  ITSPRD,  NPASS,  TFINAL,  IDBUG1.  EPSLN,  MAXITR,  MAXCUT, 

3  JCBSKP 

C0MM0N/GMT“Y/IMATL(2O>,  IMATS  <  7  > »  IMTLP(4>,  IMAX(30>,  IMIN<30), 

1  I RAY < 116).  IRAYS ( 22) . JMAX ( 30 ) . JMINI 30 ) . LSN. MAXELI .  NS. 

2  CH,  CL  (4),  CW,  DWS.  HSTS,  IARX  (  40,  15),  I  ARY  (40.  12),  ICLL, 
ICLR,  I END,  IFIRL,  IFIRR,  ILSTL.  ILSTR,  I0NE<9>, 

ISSWL1  ( 9.  10),  ISSWLJ<9,  10),  ISSWRK9,  10).  ISSWRJ<9,  10), 
ISWSLI 13,  3).  ISWSR(  13,  8),  1ST  ART,  NPROJ.  IPJUL,  IPJLL, 
IPJUR,  IPJLR,  JEND,  JONE  (  9 > ,  JSTART ,  NJS,  NSC,  NV,  SGWD(9), 
SL, SWD ( 20 ) , VN ( 20 ,  3 ) . VENTH ( 24 > ,  VENTW<24>,  VENTT C 24 ) , 

XMN  ( 30  ) ,  XMX  <  30  ) ,  XC0R<9>,  YC0R(9>,  2(30),  S3GWD,  TVSG, 

HT1 ,  HT2,  HT3,  HT4  (  10).  NSSTS.  SLSW.  SX(30>,  SZ(30), 

CNCTNS ( 24 ) , NCOMPS.  IFRCMP, FL0WC24 ) ,  INT0(24 ) ,  VTOTAL ( 4 ) , 

2  FHMIN 

COMMON/MATLS/TABX( 18,  7, 6), TABY( 18, 7, 6), NTXG.  FOX  I ,  RADTAB ( 7 ) ,  RADI , 

1  FOX ( 7 ) . NMATLS, DQI, DQM ( 7 ) , GAMI . GTAB ( 7 ) ,  ITF(20>,  IRAMPT, 

2  ITFC  <  20 ) ,  ITFCS ( 7 ) ,  ITFS<7>.  ITP(20>,  ITPC(20),  ITPCS<7>. 

3  I TPS ( 20 ) ,  ITPES ( 7 ) ,  ITPS(7>, QCI. QP(7).  OTAB ( 7 ) ,  RHOI, 

4  RH0M(7), RSI, RTAB ( 7 ) , RTGI ( 10). UTAB ( 7 ) ,  CNDCTY(7),  XMUI, 

3  XMFI,  TKNS(7),  TSL  (  30.  2.  4),  TSP  (  2-  2,  4),  CPM(7>,  WMMTL  (  7  ) . 

WMIGF.  TKNSIN(7) 

-OMMON/RADTN/ALPC,  ABSCF ( 30 ) ,  EB,  QC<2> 
f£0MMON/GASES/CHIL< 11. 3), CHIUC 11. 3), CP.  NGAS (11),  NSPCS.  PAMB,  PF(3), 

1  RHOAM,  RHOLO),  RH0U(3),  TAM,  TL(3),  TU(5).  VOLL  (  3  ) . 

2  VOLUO),  ZD  (  3  ) ,  XTHEN(  120),  WMOLEC  (  1 1  ).  TWO(  101  ) . 

3  JCOR(IZO) 

COMMON/P ARAMS/GRAV.  PI.  3TR,  RGAS.  SIGMA,  SGD.  THOU,  TOL,  EC,  EP 


COMMON  /PRTCMN/  ASRFUZ ( 22, 4 ) , ASRFLZ C 22, 4 ) , CVFLWU ( 22, 4 ) . 

*  CVFLWL  (  22,  4),  RDFLWU  ( 22,  4),  RDFLWL  ( 22,  4). 

*  VTFLWV  (  24,  2).  VTFLWE<24.  2),  F3VD0T(30), 

*  FBSDOT ( 1 1 , 30 ) , FBQDOT ( 30 ) ,  FRENTR ( 30 ) 

DATA  H  /  3.  3E-4  / 

DO  20  ICMP-1. NCOMPS 


FIND  CAB  ZONE  BEAM  LENGTHS  AND  EMITTANCEB  OF  EACH  CAB  ZONE 


AUT  -  2,  *  <  CL(ICMP)  *  CW  +  (  CH  -  ZD(ICMP)  )  *  (  CW  +  CL(ICMP))) 
ALT  -  2.  *  (  CL (ICMP)  *  CW  +  ZD(ICMP)  *  (CW  *  CL (ICMP)  )  ) 
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3LMU  »  0 


IF  ( 
BLML 

AUT  .  NE. 

-  0 

0 

)  DLMU 

«  3. 

6 

*  VOLU < ICMP ) 

/  AUT 

IF  ( 

ALT  NE. 

0. 

)  3LML 

■  3. 

6 

*  VOLU  ICMP) 

/  ALT 

SCU  -  CHIU<NSPCS. ICMP)  *  RHOUdCMP) 

SCL  ■  CHIL<NSPCS.  ICMP)  *  RHQL < ICMP ) 

C 

ECU  ■  1.  -  EXP <  -<  0.  1054  *  SCU  *1.0)*  DLMU  ) 

EGL  -l  -  EXP (  -<  0.  1054  *  SCL  *  1.  0  )  *  3LML  ) 

FIND  THE  EMITTED  RADIATION  BY  EACH  CAS  ZONE  (  PER  UNIT  AREA  ) 

REMUG  »  EGU  *  SIGMA  *  (  TUdCMP)  **4  ) 

REMLG  *  EGL  *  SIGMA  *  <  TL(ICMP)  **4  ) 

DO  10  ISRF»1. LSN 

SELECT  THE  MATERIAL  NUMBER 

IMT  -  IMATLdSRF) 

RHSU  AND  RHSL  ACCUMULATE  THE  RIGHT  HAND  SIDES  OF  THE  DIFFERENTIAL 
EQUATIONS  FOR  THE  SURFACE  TEMPERATURES 

RHSU  »  0. 

RHSL  »  0. 

CIN  IS  THE  INSULATION  CONDUCTIVITY  DIVIDED  BY  THE  MATL  THICKNESS 
CIN  *  CNDCTY < IMT)  /  TKNSINdMT) 

SUBR  COVER  FINDS  THE  CONTACT  AREA  WITH  EACH  GAS  ZONE.  AUPR  S,  ALWR 

CALL  COVER <  ISRF.  ICMP.  ZD <  ICMP).  AUPR,  ALWR  ) 

COMPUTE  THE  CONVECTIVE  TRANSFER  TO/FROM  THE  SURFACE  AND  ADD  TO  THE  RHS 

TXU  *  TSLdSRF.  3.  ICMP) 

TXL  »  TSLdSRF.  1.  ICMP) 

CVNU  -  H  *  AUPR  *  (  TUdCMP)  -  TXU  ) 

CVNL  ■  H  *  ALWR  *  <  TL  < I CMP )  -  TXL  ) 

RHSU  -  RHSU  ♦  CVNU 
RHSL  »  RHSL  ♦  CVNL 

SUBTRACT  THE  CONDUCTION  LOSS  THROUGH  THE  REAR  FACE 

RHSU  -  RHSU  -  CIN  *  AUPR  *  (  TXU  -  TAM  > 

RHSL  -  RHSL  -  CIN  *  ALWR  *  <  TXL  -  TAM  ) 

FIND  THE  INCOMING  RADIATION  TO  THE  SURFACE 

QRINU  ■  AUPR  *  REMUG 
VFAC  ■  0.  5 

QRINL  «  ALWR  *  REMLG  *  ALWR  *  VFAC  *  REMUG 
FIND  THE  RADIATION  EMITTED  3Y  THE  SURFACE 
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QROUTU  »  AUPR  *  SIGMA  *  i  TXU  **4  - 

OROUTL  «  ALWR  *  SIGMA  •  <  TXL  **4  ) 

ADD  THE  RADIATION  CONTRIBUTIONS  TO  THE  RIGHT  HAND  SIDES 

RHSU  »  RHSU  ♦  QRINU  -  ORLUTU 
RHSL  »  RHSL  *  OR INL  -  OR OUT L 

COMPUTE  THE  CHANGES  IN  TEMPERATURES 

DTU  -  0 
DTL  -  0 

DT  -  IDELT  /  1000. 

IF(  AUPR  .  GT.  0.  ) 

*  DTU  -  (  DT  /  <  AUPR  *  CPM(IMT)  ♦  RHOM(IMT)  *  TKNS(IMT)))  *  RHSU 

IF  <  ALWR  GT.  0.  ) 

*  DTL  -  (  DT  /  <  ALWR  •  CPM(IMT)  *  RHOM(IMT)  *  TKNS(IMT)))  *  RHSL 

UPDATE  THE  TEMPERATURES  OF  THE  LINING  SURFACE 

TSLdSRF,  2.  ICMP)  ■  TSL(  ISRF,  2,  ICMP)  ♦  DTU 
TSL< ISRF, 1. ICMP)  -  TSL< ISRF, 1, ICMP)  *  DTL 

SET  HIBERNATION  VALUES  FOR  SURF.  TEMPS.  WHEN  CORRESPONDING 
AREAS  ARE  ZERO 

IF<  AUPR  LE.  0.  )  TSL<  ISRF,  2,  ICMP)  -  TSL(  ISRF,  1,  ICMP ) 

IF<  ALWR  .  LE.  0.  )  TSL(  ISRF,  1,  ICMP)  -  TSL  ( ISRF,  2,  ICMP  ) 

SAVE  THE  AREAS  AND  INCOMING  FLOWS  FOR  PRINTING  IN  SUBROUTINE  OUTPUT 

ASRFUZt ISRF.  ICMP)  -  AUPR 
ASRFLZ  < ISRF,  ICMP )  -  ALWR 
CVFLWU< ISRF,  ICMP)  -  CVNU 
CVFLWLC ISRF,  ICMP)  «  CVNL 
RDFLWU< ISRF, ICMP)  -  QRINU 
RDFLWL< ISRF, ICMP)  *  QRINL 

10  CONTINUE 

THIS  SECTION  COMPUTES  THE  NEW  PARTITION  SURFACE  TEMPERATURES 

COMPUTE  THE  AREA  OF  CONTACT  WITH  THE  PARTITIONS 

CALL  XSEC (  ZD ( ICMP ) ,  ALWR  ) 

CALL  XSEC  (  CH,  ATTL  ) 

AUPR  -  ATTL  -  ALWR 

SELECT  THE  MATERIAL  PROPERTIES  OF  THE  PARTITION  AND  INITIALIZE  TERMS 

IMT  »  IMTLP(ICMP) 

CIN  -  CNDCTY ( IMT )  /  TKNSIN(IMT) 

RHSU  «  0. 

RHSL  -  0. 

TXU  -  TSP  (2,  2,  ICMP) 

TXL  -  TSP <2.  1,  ICMP) 

DTU  ■  0. 

DTL  -  O. 

FIND  THE  CONVECTIVE  FLOW  TO  THE  SURFACES 
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TpP'**’ 


ooo  o  o  o  o  o  o  o  ooo  ooo  ooo 


F 


CVNU 

■  H  *  AUPR  *  ( 

TU  < ICMP) 

-  TXU 

) 

CVNL 

»  H  *  ALWR  *  ( 

TL(ICMP) 

-  TXL 

/ 

RHSU 

-  RHSU  *  CVNU 

RHSL 

»  RHSL  *  CVNL 

SUBTRACT 

THE  CONDUCTION 

LOSS 

RHSU 

■  RHSU  -  CIN  * 

AUPR  *  ( 

TXU  - 

TAM  > 

RHSL 

-  RHSL  -  CIN  * 

ALWR  *  ( 

TXL  - 

TAM  ) 

FIND  THE 

INCOMING  RADIATION  AND 

EMITTED  RADIATION 

QRINU  •  AUPR  *  REMUS 
VFAC  ■  0.  S 

QRINL  -  ALWR  •  REMLC  +  ALWR  •  VFAC  *  REMUS 

SROUTU  »  AUPR  *  SIGMA  *  (  TXU  **4  ) 

QROUTL  -  ALWR  *  SIGMA  *  (  TXU  **4  > 

ADD  THE  RADIATION  TERMS  TO  THE  RIGHT  HAND  SIDES 


RHSU  -  RHSU  +  QRINU  -  QROUTU 
RHSL  -  RHSL  *  QRINL  -  QROUTL 


FIND  THE  TEMPERATURE  CHANGES  AND  UPDATE  THE  TEMPERATURES 


IF (  AUPR  GT 

*  DTU  «  (  OT  / 
IF (  ALWR  .  GT. 

*  DTL  ■  <  DT  / 
TSP<  1,  2,  ICMP) 

tspo.  a.  icmp) 

TSP  < 1  .  1.  ICMP) 
TSP<2.  1,  ICMP) 


0.  ) 

<  AUPR  «  CPM(IMT)  *  RHOM(IMT)  *  TKNS(IMT) 
0.  ) 

(  ALWR  *  CPM(IMT)  *  RHOM(IMT)  *  TKNS(IMT) 
■  TSP (1-2-  ICMP)  *  DTU 
»  TSP <2- 2. ICMP)  +  DTU 
*  TSP< 1-  1-  ICMP)  +  DTL 
-  TSP (2-  1.  ICMP)  DTL 


) 

) 


SET  HIBERNATION  VALUES  FOR  THE  SURFACE  TEMPS  WHEN  CORRESPONDING 
AREAS  ARE  ZERO 


12 


14 


IF  <  AUPR  .  GT. 
TSP ( 1  -  2-  ICMP) 
TSP <2.  2.  ICMP) 
CONTINUE 
IF (  ALWR  .  GT. 
TSP(1-  1.  ICMP) 
TSP < 2-  1-  ICMP) 
CONTINUE 


0.  )  GO  TO  12 

-  TSP ( 1  -  1-  ICMP) 

■  TSP <2.  1-  ICMP) 

0.  )  GO  TO  14 

■  TSP <  1  ■  2.  ICMP) 

-  TSPI2- 2-  ICMP) 


SAVE  THE  AREAS  AND  INCOMING  FLOWS 


ASRFUZ(21. ICMP)  ■  AUPR 
ASRFLZI21. ICMP)  ■  ALWR 
CVFLWU<21.  ICMP)  -  CVNU 
CVFLWL(21. ICMP)  ■  CVNL 
RDFLWU(2t, ICMP)  ■  QRINU 
RDFLWL(21. ICMP)  «  QRINL 

ASRFUZ(22- ICMP)  -  AUPR 
ASRFLZ (22.  ICMP )  -  ALWR 
CVFLWU(22, ICMP)  -  CVNU 
CVFLWL ( 22-  ICMP)  -  CVNL 
RDFLWU(22, ICMP)  -  QRINU 


RHSU 

RHSL 


RDFLWi.<22,  ICMP)  -  9ft I NL 


C 

20 

C 

C 


CONTINUE 

RETURN 

END 
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SUBROUTINE  SCAN* I > 


OBJECTIVE  I S ) 

(1)  SUBR  SCAN  SCANS  THE  ARRAYS  OF  LINING  SURFACE  AND  SEAT  ELMNTS  TO 
ISOLATE  GROUPS  OF  CONTIGUOUS  FLAMING  ELMNTS  WHICH  FORM  THE  BASE 
AREAS  OF  FIRES.  WHEN  A  CROUP  OF  ELMNTS  IS  DISCOVERED  THE  FOLLOWING 
QUANTITIES  ARE  COMPUTED  AND  ASSIGNED  TO  THIS  NEW  FIRE  ~ 

K  -  FIRE  NUMBER  <  A  COMPLETE  RENUMBERING  OCCURS  AT  EACH  FLAME 

SPREAD  PASS  ) 

AF  -  FIRE  BASE  AREA 

IVMAX.  IVMIN,  JVMAX,  JVMIN.  IVMX.  IVMN.  JVMX.  JVMN  -  MAXIMUM  AND 
MINIMUM  VALUES  OF  THE  I  AND  J  INDICES  OF  THE  ELMNTS 
COMPOSING  THE  FIRE  BASE.  TWO  COPIES  ARE  KEPT 

ISTART.  JSTART,  1END.  JEND  -  I  AND  J  INDEX  VALUES  DEFINING  THE 
REGION  OVER  WHICH  THE  SEARCH  FOR  FIRES  WAS  JUST 
CONDUCTED. 

ZB  »  THE  DISPLACEMENT  OF  THE  CENTER  OF  THE  FIRE  BASE  FROM  THE 
FLOOR 

YZ  -  THE  HYDRAULIC  RADIUS  OF  THE  FIRE  BASE  AREA 

FLML  -  THE  FLAME  LENGTH  FOR  THE  FIRE 

ALPC  •  THE  FLAME  BASE  CENTER  EMITTANCE  FOR  THIS  FIRE 

ISFIRE-  SEAT  GROUP  NUMBER  (IF  ANY)  ON  WHICH  THIS  FIRE  IS  BURNING 
VALUE  OF  ZERO  x>  FIRE  IS  ON  LININQ  SURFACES 

I ZONE  •  THE  GAS  ZONE  IN  WHICH  THE  BASE  CENTER  OF  THIS  FIRE  IS 
LOCATED.  VALUE  -  t  *>  LWR  ZONE.  •  2  ->  UPPER  ZONE. 

IXFIRE-  FLAO  TO  IDENTIFY  WHICH  PART  OF  A  SEAT  GROUP  ON  WHICH  A 
SEAT  FIRE  IS  LOCATED  (USED  ON  SEAT  FIRES  ONLY) 

IXF1RE  •  1  ->  FIRE  IS  ON  CUSHION  BOTTOM 

IXFIRE  -  2  ■>  FIRE  IS  ON  CUSHION  TOP  AND  FRONT 

IXFIRE  -  3  ->  FIRE  IS  ON  BACKREST 

FSN1.  FSN2.  FSN3  ■  NUMBERS  OF  FLAMING  ELMNTS  ON  THE  CUSHION  BOTTOM 
CUSHION  TOP.  AND  BACKREST  RESPECTIVELY,  OF  A  FIRE  BURNING 
ON  A  SEAT  OROUP.  USED  ONLY  FOR  SEAT  FIRES. 

NSFL  -  THE  NUMBER  OF  FLAMING  ELMNTS  OF  EACH  OF  THE  7  SURFACES  OF 
A  SEAT  GROUP.  USED  ONLY  FOR  SEAT  FIRES, 

PDH  «  THE  SMOLDERING  RANGE  FOR  THE  FIRE. 

COMB  •  THE  COMBUSTION  ZONE  LENGTH. 

GAMMA  ■  THE  STOICHIOMETRIC  OXYGEN-TO-FUEL  RATIO. 

OMEGA  *  THE  INVERSE  VOLUMETRIC  EXPANSION  RATIO. 

RHOZ  ■  THE  FUEL  VAPOR  DENSITY  AT  THE  FIRE  BASE  PLANE. 

UZ  -  THE  FUEL  VAPOR  VELOCITY  AT  THE  BASE  PLANE. 

RADFIR-  THE  RADIATION  LCJCS  FRACTION  FOR  THIS  FIRE. 
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IF  THIS  FIRE  CONTAINS  IGNITION  SOURCE  ELEMENTS 


AEXP  -  THE  DIFFERENCE/  IF  ANY,  BETWEEN  THE  TOTAL  BASE  AREA  FOR 

THIS  FIRE  AND  THE  AREA  COMPOSED  OF  IGNITION  SOURCE  ELMNTS. 

ALSO.  SUBR  SCAN  SETS  NEW  VALUES  FOR  — 

ISAVE  *  A  FLAG  TO  CONTROL  SUBSEQUENT  CALLS  TO  THIS  SUBROUTINE 
FOR  THE  SAME  SURFACE  NUMBER  (SEE  COMMENT  1). 

IF  a  an  ARRAY  INDICATING  FOR  EACH  ELEMENT  HOW  MANY  NEIGHBORING 
ELEMENTS  TO  THAT  ELEMENT  ARE  IN  THE  FLAMING  STATE. 

COMMENTS 

(1)  THE  USE  OF  SUBR  SCAN  IS  AS  FOLLOWS.  AT  THE  START  OF  A  FLAME  SPREAD 
CALCULATION  SCAN  IS  CALLED  FOR  EACH  SURFACE  IN  SEQUENCE  WHEN  A 
FIRE  IS  DISCOVERED  AND  ITS  PROPERTIES  AND  LIMITS  DETERMINED. 
CONTROL  LEAVES  SUBR  SCAN  AND  GOES  TO  SUBRS  COND.  FCON.  ETC.  EVEN 
THOUGH  THERE  MAY  BE  ADDITIONAL  FIRES  ON  THE  CURRENT  SURFACE.  IF 
THERE  ARE  OTHER  FIRES.  THE  FLAG  ISAVE  IS  USED  TO  DIRECT  CONTROL 
BACK  TO  SCAN  AGAIN  WITHOUT  SKIPPING  TO  A  NEW  SURFACE.  WHEN  A  FIRE 
BASE  OVERLAPS  TWO  OR  MORE  CO-PLANAR  LINING  SURFACES  THE  VALUE  OF 
I  IN  THE  CALL  MAY  BE  CHANGED  BUT  ALL  FIRES  ON  THE  CO-PLANAR  SET  OF 
LINING  SURFACES  WILL  BE  DISCOVERED  THRU  THE  USE  OF  ISAVE. 

<2>  DUE  TO  THE  DESIGN  DESCRIBED  ABOVE  SUBR  SCAN  DEPENDS  UPON  THE 
RETENTION  OF  THE  VALUES  OF  SOME  LOCAL  (INTERNAL)  VARIABLES 
BETWEEN  CALLS. 


COMMON/CNTRL/DELTAT, DELTSP. ECOFLG. IDELT. IDENT(20>. IDTPRV, IPEMS. 

1  IPSPR.  IPAUX.  IRATIO.  ISAVE.  ISCALE,  ITFIN.  ITIME.  ITIM2. 

2  ITSPRD.  NPASS. TFINAL,  IDBUCZ , EPSLN, MAXITR. MAXCUT, 

3  JCBSKP 

COMMON/FIRES/ AFM (7 ) . ASH( 7) >  I STATE ( 120,  IS).  ISTATSC9.  16. 22). 

1  I WORD ( 120. IS). IW0RDS(9. 16. 22 ) . NFLM( 7) . NPYR ( 7 ) . 

2  ROS  <1 0.  7 ) , RSS ( 7 ) , TOTGAS (10). TOTSEM. TRGF ( 10 ) . 

3  TRCSUO).  TRSF.  TRSS.  NCE  ( 30 ) .  V I TNR .  TOTVIT.  RADF IR  ( 30 ) . 

4  ACM <7 ) .  AF  < 30 ) .  AF I ,  AEXP. COMB ( 30 ) . DQK,  FLML ( 30 > . FSN1, 

5  FSN2. FSN3. GAMMA (30). I BURN. IF(600>. IGMNI. IOMNU. IGMXI. 

6  IGMXU.  IGNFIR.  ICNIJ(2,  lOO).  ZCSN.  ISFIREOO).  IVMAXOO). 

7  IVMIN<30) .  I VMN,  IVMX.  IXFIRE,  I  ZONE (30)  .  UVMAX ( 30 ) . 

8  JVMIN  <  30 ) . JVMN. JVMX. K.  NFE< 30) ,  NFIRES.  NIJC.  NIJSQ. 

9  NPE  ( 30 ) .  NSFL  <  7 ) .  OMEGA  <  30 ) .  PDH,  PIGN.  RF(20.  4),  RFS<7.  4). 

1  RFWS. RGF ( 10. 7). RGFKt 10). RHOZ (30) , RSF(7) ,  RSFK,  TDQ. 

2  TBURNI,  UZ (30) >  YZ ( 30  > , ZB ( 30 ) . RHOEFQ.  CHIEFG ( 11). 

3  FLOWIN, FLWOUT. TEFQ, IFRVNT , GENRAT (11), TDQMTL ( 7 ) . 

4  TP ( 7 ) .  TPC ( 7  > 

COMMON/GASES/CHIL(  11.  5).  CHIUdl,  S),  CP.  NGAS<  1 1  > .  NSPCS.  PAMB.PF(S), 

1  RHOAM.  RHOL(S).  RHOU(S). TAM, TL ( S ) . TU( S) . VOLL ( S) . 

2  VOLU(S),  ZD(S>. XTHEN( 120) ,  WMOLEC (11),  TWO( 101 ) . 

3  UC0RU20) 

COMMON/ GMTR  Y / 1 MATL ( 20 ) .  IMATS(7>.  JMTLP<4),  IMAX(30>.  IMIN(30>, 

1  IRAY( 116).  IRAYS ( 22 ) . UMAX ( 30 ) . JMIN( 30  > . LSN. MAXELI . NS. 

2  CH.  CL(  4) .  CW,  DWS,  HSTS.  IARX(40.  IS).  IARY(40.  12).  ICLL. 

3  ICLR. I END. IFIRL. IFIRR, ILSTL, ILSTR. I0NE(9>, 

4  ISSWLI (9. 10), ISSWLV(9, 10). ISSWRI (9, 10). ISSWRU(9, 10), 

5  ISWSL(  13.  8).  I SWSR  (IS,  S).  1ST  ART.  NPROJ.  IPJUL,  IPULL, 

6  IPJUR,  IPJLR.  JEND.  JONE (9) , USTART, NUS.  NSG. NV, SGWD(9). 

7  SL.  SWD ( 20 ) . VN(20, 3). VENTH(24> , VENTW(24>, VENTT(24) . 

8  XMN(30) .  XMX  <  30 > .  XC0R(9>.  YC0R<9>.  ZOO).  SSGWD.  TVSG. 

9  HTl,  HT2.  HT3,  HT4(  10),  NSSTS,  SLSW,  SX  ( 30 ) .  SZ  (  30 ) . 

1  CNCTNS ( 24 ) , NCOMPS. IFRCMP, FL0W(24). INT0(24), VT0TAL<4), 
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2  FHMIN 

COMMON/MATLS/TABX  (  IS,  7.  6).  TABY  ( 13,  7,  6.' .  NTXG,  FOX  I,  RADTAB (7) ,  RADI , 

1  FGX  (7).  NMATLS,  DQI,  DGM<7>,  SAMI,  STAB<7>,  ITF(20),  IRAMPT, 

2  ITFC  <  20 ) i  ITFCS ( 7 ) ■  ITFS<7),  ITP(20),  ITPC(20),  ITPCS<7). 

3  ITPE ( 20 ) , ITPES ( 7 ) , ITPS<7>,  GCI, QP(7), STAB ( 7 ) , RHOI , 

4  RH0M(7>, RSI, RTAB  <  7  > , RTGI ( 10) , UTABC7), CNDCTYC7). XMUI, 

5  XMFI,  TKNS  C  7  >  •  TSL(30,  2,  4),  TSP<2,  2,  4),  CPM(7),  WMMTLI7), 

6  WMIGF,  TKNSIN(7) 

COMMON/PARAMS/GRAV,  PI.  QTR,  RGAS,  SIGMA,  SOD,  THOU,  TOL,  EC,  EP 
COMMON / R  ADTN / ALP  C , ABSCF ( 30 ) , EB, QC(2) 

C  THE  LOCAL  ARRAYS  IFR  AND  JFR  WILL  BE  FILLED  WITH  THE  I  AND  J  INDICES 
C  OF  ELMNTS  IN  STATE  3  (FLAMING).  THEY  <XRE  THE  WOPKINC  MATERIAL  FOR 
C  CONSTRUCTING  FIRE  BASE  AREAS.  THE  ARRAY  IUSE  WILL  CONTAIN  A  CODE  FOR 
C  EACH  FLAMING  ELMNT  SIGNALING  IF  IT  HAS  YET  TO  BE  INCLUDED  IN  A  FIRE 
C  BASE.  IFR,  JFR,  AND  IUSE  ARE  SINGLY  DIMENSIONED  AT  A  LARGE  ENOUGH 
C  VALUE  TO  COVER  ALL  LINING  SURFACE  AND  SEAT  ELMNTS.  SINGLE  DIMENSIONING 
C  IS  USED  TO  FACILITATE  SHIFTING  DATA  WITHIN  THE  ARRAYS.  TEMJ  AND  GCMB 
C  ARE  TEMPORARY  WORKING  ARRAYS. 

DIMENSION  IFR (620), JFR (620), IUSE (620), TEMJ(7), GCMB (SO) 

C  IF  ISAVE  IS  ZERO  THIS  IS  THE  FIRST  EXAMINATION  OF  THIS  SURFACE  SO  SKIP 
C  TO  STMT  1  FOR  SOME  INITIALIZATION  OF  WORKING  VRBLS. 

IF(  ISAVE.  EG.  0)  GO  TO  1 

C  THIS  TEST  PROTECTS  AGAINST  AN  ERRONEOUS  RE-CALL  OF  THIS  SUBR  NTOT  IS 
C  A  COUNT  OF  THE  NUMBER  OF  FIRE  BASE  ELMNTS  DISCOVERED. 

IF(NTOT. EG. 0)  GO  TO  173 
GO  TO  3 

C  ON  THE  FIRST  PASS  FOR  A  SURFACE  INITIALIZE  THE  COUNTERS  FSN1,  FSN2« 

C  FSN3  AND  NSFL. 

1  FSN1-0.  0 
FSN2-0. 

FSN3-0. 

DO  2  KS-1.7 
2  NSFL(KS)-0 

C  INITIALIZE  THE  ARRAY  IF 
3  DO  20  IJ-1,600 

20  IF<IJ>«0 

C  THIS  TEST  SKIPS  CONTROL  TO  STMT  30  ON  THE  FIRST  CALL  FOR  SURFACE  I. 

IF ( ISAVE.  EG.  0)  GO  TO  30 

C  ICTR  IS  A  COUNTER  OF  THE  CURRENT  LOCATION  IN  THE  IFR  AND  JFR  ARRAYS 
C  SET  IT  TO  1  TO  START. 

ICTR-1 

C  IF  THIS  SURFACE,  I,  IS  A  SEAT  GROUP  (AND  THIS  IS  THE  SECOND  OR 
C  SUCCEEDING  SCAN  OF  THIS  SURF)  SKIP  TO  STMT  22  TO  SET  UP  SPECIAL  I  AND 
C  J  INDEX  LIMITS  FOR  SCANNING  OF  SEAT  GROUP  SURFACES. 

IF(  I.  GT.  LSN ) GO  TO  22 

C  FOR  LINING  SURFACES  ESTABLISH  J  INDEX  SCAN  LIMITS  AND  SKIP  TO  176. 

Jl-1 

J2-JEND. 

GO  TO  176 

C  ICOUNT  IS  A  SWITCH  TO  INDICATE  WHICH  SEAT  SURFACES  HAVE  BEEN  SCANNED 
C  THE  TEST  ON  ICOUNT  -  0  IS  A  PROTECTION  AGAINST  ERRONEOUS  CALLS 
22  IF( ICOUNT.  EG.  0)GO  TO  173 

C  THIS  COMPUTED  GO-TO  SWITCHES  CONTROL  TO  STMTS  WHICH  SEARCH  VARIOUS 
C  PARTS  OF  THE  SEAT  GROUP  FOR  FLAMING  ELMNTS.  THE  DECISION  IS  BASED  ON 
C  WHICH  PARTS  HAVE  BEEN  SCANNED  IN  EARLIER  CALLS.  THE  SCANNING  STMTS  ARE 
C  23  THRU  28  AND  1741  THRU  1746.  *  SOME  CLEAN-UP  IS  NEEDED  HERE  • 

GOTO  (1741,1742,1744.1744,24),  ICOUNT 
33  IBK-1 

ION-6 
I TWO-7 
GO  TO  29 


24 


IBK-2 
I  ON- 5 
ITWO-1S 
23  DO  27  NN-l.NTOT 

IFIJFRINN)  .  GE.  ION  AND  JFR(NN)  LE.  I TWO) GO  TO  28 
27  CONTINUE 

IF! IBK-1 > 1744, 1744. 1743 
2B  IF! IBK-1 ) 1743. 1743, 1746 

C  IF  CONTROL  REACHES  THIS  POINT.  THIS  IS  THE  FIRST  SCAN  OF  THIS  SURFACE 
C  ON  THIS  SPREAD  PASS  SO  START  WITH  THE  MINIMUM  I  AND  J  INDICES  FOR  THE 
C  SURFACE 

30  I START- 1 MINI  I ) 

JSTART-JMINI I ) 

C  FOR  LINING  SURFACES  THE  SCANNING  PROCESS  WILL  TAKE  PLACE  OVER  ALL 
C  ADJACENT  CO-PLANAR  SURFACES  STMTS  110  THRU  160  FIND  THE  MAXIMUM  I  AND 
C  J  INDICES  FOR  SCANNING  IN  THIS  CASE. 

IF < I  LE. LSN)  GO  TO  110 
IS— I-LSN 
GO  TO  160 
110  IP-0 

120  IF!  I  I  +  IP+1  >.  LE.  LSN)  GO  TO  130 
I-I+IP 
GO  TO  160 
130  IP-IP+1 
IT-I+IP 
DO  140  IX-1,  3 

IFIVNI  I,  IX).  NE.  VNI  IT.  IX)  )  GO  TO  ISO 
140  CONTINUE 
GO  TO  120 
130  I-I+IP-1 
160  IEND-IMAXII) 

JEND-JMAX I  I ) 

ICTR-O 

C  THE  NESTED  LOOPS  THRU  163  AND  170  SEARCH  OVER  THE  REGION  OF  ELMNTS 
C  DEFINED  BY  ISTART.  I END.  JSTART,  AND  JEND  TO  SET  UP  THE  LISTS  (ARRAYS) 
C  IFR  AND  JFR  WHICH  CONTAIN  THE  I  AND  J  INDICES  OF  ALL  STATE  3  ELMNTS 
C  WITHIN  THIS  REGION.  ICTR  IS  THE  COUNTER  OF  THE  TOTAL  NUMBER  FOUND. 

C  ALSO  THE  MARKER  LIST  IUSE  IS  INITIALIZED  TO  ZERO  AND.  IF  THIS  IS  A 
C  SEAT.  NSFL  IS  FILLED  WITH  THE  NUMBER  OF  STATE  3  ELMNTS  ON  EACH  OF  THE 
C  SEAT  SURFACES. 

DO  170  II-ISTART. IEND 
DO  163  JJ— JSTART.  JEND 
CALL  CVOUTIII,  JJ.  I,  1ST.  ISTP,  ITFCP  ) 

IF  1 1ST.  NE.  3  OR.  1ST  NE.  ISTP)  GO  TO  163 

162  ICTR— ICTR+1 
IFR ( ICTR )-I I 
JFR I ICTR ) — JJ 
IUSE < ICTR) -0 

IF!  I.  LE.  LSN)  GO  TO  163 
KS-IRAYSI JJ) 

NSFL IKS) -NSFL I KS ) + 1 

163  CONTINUE 

170  CONTINUE 

C  SAVE  THE  TOTAL  NUMBER  OF  FLAMING  ELMNTS  DISCOVERED  AS  NTOT. 

NTOT-ICTR 

C  IF  NO  FLAMING  ELMNTS  WERE  FOUND  IN  THE  SCANNED  REGION  SET  THE  ISAVE 
C  FLAG  TO  ALLOW  PROGRESS  TO  NEW  SURFACES  AND  RETURN. 

171  IF? ICTR. GT  0)00  TO  174 
173  I SAVE-0 

RETURN 

C  THE  FOLLOWING  27  STMTS  REARRANGE  THE  ENTRIES  IN  THE  IFR  AND  JFR  ARRAYS 
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C  IN  THE  CASE  OF  SEAT  SURFACES  ONLY  THE  OBJECTIVE  IS  TO  PLACE  ALL 
C  INDICES  OF  ELMNTS  ON  THE  SEAT  CUSHION  BOTTOM  FIRST  IN  THE  ARRAYS.  THE 
C  INDICES  OF  CUSHION  TOP  AND  FRONT  ELMNTS  SECOND.  AND  THE  INDICES  OF 
C  BACKREST  ELMNTS  LAST  THIS  ORDERING  IS  REQUIRED  BY  THE  CONVENTION 
C  THAT  ALL  BURNING  ELMNTS  ON  ANY  ONE  OF  THESE  THREE  PARTS  OF  A  SEAT 
C  ARE  REGARDED  AS  COMPRISING  A  SINGLE  FIRE  ON  THAT  PART. 

174  IF< I. LE. LSN)GO  TO  1740 
I LOC "310 

DO  1800  IL-l.NTOT 

IF< JFR< IL).  GT. 4)  GO  TO  1800 

I  LOC -I  LOC -M 

UFR  < I LOC ) -JFR ( IL) 

1 FR  <  I LOC  > - 1 FR  <  I L ) 

1800  CONTINUE 

IF< (ILOC -310)  GE. NTOT)GO  TO  18S0 

DO  1810  IL-l.NTOT 

IF< JFR< IL).  LT  19>G0  TO  1810 

I  LOC -I  LOC +  1 

JFR  < I LOC ) “UFR ( 1 L ) 

IFR <  ILOO-IFR!  IL) 

1810  CONTINUE 

IF ( < ILQC-310  > .  GE.  NTOT  >G0  TO  1830 
DO  1820  IL-l.NTOT 

IF<  JFR<  IL).  LT.  3  .OR.  JFR  ( IL ) .  GT.  18)  GO  TO  1820 

I LOC -I LOC +1 

JFR ( ILOC ) —JFR ( IL ) 

IFR  < ILOC )  —  IFR ( IL ) 

1820  CONTINUE 
1830  I LOC -3 10 

DO  1860  IL-l.NTOT 
ILOC— ILOC >1 
IFR<IL)-IFR( ILOC) 

I860  JFR < IL) -JFR < ILOC) 

SO  TO  1741 

C  FOR  LINING  SURFACES  SET  THE  VALUES  FOR  THE  LIMITS  OF  THE  J  INDICES 
C  ON  A  SURFACE  TO  1  AND  JEND.  Jt  IS  THE  LOWEST  J  VALUE  ON  THE  SURF  AND 
C  J 2  IS  THE  HIGHEST 
1740  Jl-1 

J2-JEND 
GO  TO  173 

C  THE  NEXT  27  STMTS  DEFINE  THE  J  INDEX  LIMITS  FOR  SEAT  GROUPS  AND  SET 
C  THE  VALUE  OF  IXFIRE  FOR  USE  IN  THE  SPREAD  SUBROUTINES  CONDS  AND  FCONS 
C  ICOUNT  IS  ALSO  SET  TO  CONTROL  SEAT  SCANNING  DURING  ANY  SUBSEQUENT 
C  CALLS. 

1741  I COUNT-2 
I XF IRE-0 

IF <NSFL< 1 ) . LT.  1 )G0  TO  1742 
C  SET  J  LIMITS  FOR  CUSHION  BOTTOM. 

Jl-1 
J2-4 
IXFIRE-1 
I SAVE- 1 
GO  TO  173 

1742  IF<N8FL(6>  GT.  0  OR.  NSFL< 7) .  GT.  0)00  TO  1743 
I COUNT-4 

GO  TO  1744 

C  SET  J  LIMITS  FOR  CUSHION  TOP. 

1743  Jl-19 
J2-22 
ICOUNT-3 
I XFIRE-2 


I  SAVE- 1 
SO  TO  175 

1744  IF(NSFL(2>  .  GT  0  OR  NSFL13)  GT  0)G0  TO  1746 
IF ( NSFL  <  4 )  GT  0  OR.  NSFU(5)  GT .  0>G0  TO  1746 

C  NO  FLAMING  ELMNTS  HAVE  BEEN  DETECTED  ON  THE  SEAT.  RETURN  TO  MAIN  PCM 

1745  1 XF IRE-0 
ICOUNT-O 
CO  TO  173 

C  SET  J  LIMITS  FOR  BACKREST 

1746  Jl-5 
J2-18 
IXFIRE-3 
I COUNT- 5 
ISAVE-1 

C  CONTROL  REACHES  THIS  POINT  FOR  BOTH  SEATS  AND  LINING  SURFACES 
C  THE  TEST  IS  MADE  TO  FIND  IF  THE  CURRENT  SURFACE  CONTAINS  THE  IGN  SRC 
C  FIRE.  IF  IT  DOES.  THIS  FIRE  IS  ISOLATED  IN  THE  LOOPS  THRU  1750  AND 
C  1751  AND  THE  IF  ARRAY  IS  COMPUTED  FOR  THE  ELMNTS  OF  THE  IGN  SRC  FIRE 
C  SEE  SUBR  IS IDE  FOR  THE  DEFINITION  OF  THE  ARRAY  IF 
175  CONTINUE 

IF <  IGNFIR.  NE.  1.  OR.  I.NE.  IGSN)  GO  TO  176 
NSG-0 

PERiM-PIGN 
ICON— I END- 1 ST AR  T ♦ 1 
DO  1751  IL-l.NTOT 
DO  1750  L— 1 . NI JSQ 

IF(  IGNIJ<  1.  L>.  NE.  IFR<  IL)  OR.  IGNI J  ( 2,  L  >  NE.  JFR  ( IL  >  >  GO  TO  1750 

1 USE ( I L ) — 1 

IT-1 

IF(JFRdL)  EG  IGMNJ)  IT-2 

IF< JFR< IL).  EG.  IGMXJ)  IT-IT+10 

IF ( IFR  < IL )  EG.  IGMNI >  IT-IT+100 

IF < IFR  < IL )  EG  IGMX I )  IT-IT+IOOO 

IJ-< IFR ( IL ) — ISTART+l > ICON*  ( JFR ( IL  >  — USTART ) 

IF  < IJ)-IT 
NSG-NSQ+ 1 

1750  CONTINUE 

1751  CONTINUE 

C  IGNFIR  -  2  IS  A  FLAO  INDICATING  THAT  THE  IGNITION  SOURCE  FIRE  IS 
C  CURRENTLY  BURNING  BECAUSE  THE  IGN  SRC  FIRE  IS  ALWAYS  HANDLED 
C  SEPARATELY  CONTROL  NOW  GOES  TO  STMT  350  FOR  THE  COMPUTATION  OF 
C  INDEX  LIMITS.  FLAME  LENGTH,  ETC. 

IGNFIR— 2 
GO  TO  350 

C  STMT  176  IS  THE  STARTING  POINT  FOR  THE  PROCESS.  GIVEN  IN  THE  NEXT  128 
C  STMTS  (THRU  348).  WHICH  IDENTIFIES  THE  GROUPS  OF  CONTIGUOUS  ELMNTS 
C  WHICH  FORM  A  FIRE  BASE.  THE  PROCESS  WORKS  AS  FOLLOWS.  START  WITH  THE 
C  FIRST  ELMNT  QIVEN  BY  THE  I  AND  U  INDICES  STORED  IN  THE  FIRST  POSITION 
C  OF  THE  IFR  AND  JFR  ARRAYS  THE  EIGHT  IMMEDIATELY  NEIGHBORING  ELMNTS 
C  ARE  THEN  EXAMINED  TO  FIND  WHICH.  IF  ANY,  ARE  FLAMING.  FLAMING 
C  NEIGHBORS  ARE  MARKED  BY  SETTINQ  THEIR  CORRESPONDING  MEMBER  OF  THE 
C  ARRAY  I USE  TO  A  NON-ZERO  INTEGER  WHEN  ALL  FLAMING  NEIGHBORS  OF  A 
C  FLAMING  ELMNT  HAVE  BEEN  FOUND  CONTROL  MOVES  TO  THE  NEXT  MEMBER  OF 
C  THE  IFR  AND  JFR  LISTS  AND  THE  SEARCH  OF  NEIGHBORS  REPEATS. 

C  EVENTUALLY  ALL  FLAMING  ELMNTS  IN  A  FIRE  BASE  WILL  HAVE  BEEN  MARKED 
C  AS  BEING  A  NEIGHBOR  TO  ANOTHER  FLAMING  ELMNT  CONTROL  THEN  SKIPS  TO 
C  STMT  350  FOR  COMPUTATION  OF  THE  FIRE  PROPERTIES 
176  ICON-IEND-ISTART-1 

C  SELECT  AS  THE  TEST  ELMNT  THE  ONE  GIVEN  BY  THE  FIRST  MEMBERS  OF  THE  IFR 
C  AND  JFR  ARRAYS 
ICTR-l 
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II-IFR< ICTR) 

JJ-JFR  t ICTR > 

IJ-< 1 1  —  l START* 1 )  + ICON* ( J J- JSTART ) 

IF<  NTOT-1 )  173,180,190 
C  IF  NTOT  ■  1  THIS  IS  A  SINGLE  ELEMENT  FIRE 
180  NSQ-1 

PERIM-4.  *SQD 
IF(IJ>-1112 
IUSE<  ICTR  >»1 
I SAVE-0 
GO  TO  350 

C  THE  FIRE  BASE  CONSISTS  OF  MORE  THAN  ONE  ELMNT.  INITIALIZE  SEVERAL 
C  COUNTERS:  NOP  -  NUMBER  OF  6LMNTS  ON  THE  FIRE  BASE  PERIMETER 
C  NSO  -  TOTAL  NUMBER  OF  ELMNTS  ON  THE  BASE 

C  PERIM  -  THE  BASE  PERIMETER  LENGTH 

C  NFOUND  -  NUMBER  OF  THE  EIGHT  POSSIBLE  NEIGHBORS  THAT  ARE 

C  ALSO  FLAMING 

C  IBASE  -  A  MARKER  FOR  POSITION  IN  THE  IFR  AND  JFR  LISTS 

C  NBASE  -  THE  NUMBER  OF  THE  FIRE  BASE  AREA 

C  NUSE.  NOB  -  TEMPORARY  FLAGS  USED  IN  MARKING  NEIGHBORS 

190  NSO— 0 

PERIM-O.  0 
NOP— 0 
I USE  < 1 >-l 
NFOUND— O 
I BASE- 1 
NBASE- 1 
NUSE— 0 
NOB-1 

C  CHOOSE  A  FLAMING  ELMNT  GIVEN  BY  INDICES  II  AND  JJ  AS  DETERMINED  WITH 
C  THE  CURRENT  VALUE  OF  IBASE 
192  1 1  —  I FR ( IBASE ) 

JJ-JFR (IBASE) 

I J- < 1 1 - 1 START* l )  +  ICON*  <  JU- JSTART ) 

IF( I J)— 1 
NSG-NSG+ 1 

C  CHOOSE  THE  NEIGHBORING  ELMNT  HAVING  A  LOWER  J  INDEX,  BUT  SKIP  THIS 
C  CHOICE  IF  II.  JJ  IS  ON  THE  MINIMUM  J  EDGE. 

IF <  JJ.  LE.  J1 )  GO  TO  217 

IT1-II 

IT2-JJ-1 

IRET-1 

C  THE  FLAG  KLOSE  SIGNALS  BY  A  VALUE  OF  ZERO  THAT  AT  LEAST  ONE  OF  THE 
C  NEIGHBORS  OF  A  FLAMING  ELMNT  IS  NON-FLAMING  SO  THAT  THE  FLAMING  ELMNT 
C  MUST  LIE  ON  THE  EDGE  (PERIMETER)  OF  A  FIRE  BASE. 

200  KLOSE- 1 

C  THE  LOOP  THRU  STMT  203  CHECKS  ALL  MEMBERS  OF  THE  IFR  AND  JFR  ARRAYS 
C  TO  FIND  IF  THE  NEIGHBOR  IS  LISTED.  IF  SO  IT  IS  MARKED  -  IF  IT  HAS  NOT 
C  BEEN  MARKED  ALREADY 
DO  203  IL-l.NTOT 
IFUL.  EQ.  I  BASE )  GO  TO  203 

IF(IT1.NE.  IFR(IL)  OR.  IT2.  NE.  JFR  (  IL  >  )  GO  TO  203 
I F  <  I  USE  ( I L )  NE.  0 )  GO  TO  207 
NFOUND-NFOUND+ 1 
IUSE(IL)-NOB+t 
CO  TO  207 
203  CONTINUE 
KLOSE— O 

C  THIS  COMPUTED  GO-TO  CONTROLS  THE  SELECTION  OF  THE  NEXT  NEIGHBORING 
C  ELMNT  TO  BE  EXAMINED 
207  GO  TO  <213.  223.  233,  243),  IRET 
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219  IF ( KLQSE  EQ.  1)  00  TO  220 

C  ELMNT  II-  JJ-i  IS  NOT  FLAMING  ->  II.  JJ  IS  ON  THE  PERIMETER 
217  NOP "NOP *1 
IF< I J>»2 

C  SELECT  THE  NEIGHBOR  HAVING  THE  NEXT  HIGHER  J  INDEX  VALUE-  BUT  SKIP  IT 
C  IF  II,  JJ  IS  ON  THE  MAXIMUM  J  EDGE. 

220  IF<  JJ.  GE.  J2>G0  TO  227 
IT1-II 

IT2"JJ+1 
I RET "2 
GO  TO  200 

229  IF  <  KL03E. EQ  1)  GO  TO  230 

C  ELMNT  II.  JJ+1  IS  NOT  FLAMING  ->  II.  JU  IS  ON  THE  PERIMETER 
227  NOP "NOP *1 

IF( I J)»IF< IJ1+10 

230  IF< 1 1.  EG.  ISTART)  GO  TO  237 

C  SELECT  THE  NEIGHBOR  HAVING  THE  NEXT  LOWER  I  INDEX  VALUE,  BUT  SKIP  IT 
C  IF  II,  JJ  IS  ON  THE  MINIMUM  I  EDGE. 

IT1-II-1 
IT2"UU 
IRET-3 
GO  TO  200 

C  ELMNT  1 1  — 1.  JJ  IS  NOT  FLAMING  ■>  II,  JJ  IS  ON  THE  PERIMETER. 

239  IF<  KLOSE.  EG.  1 )  GO  TO  240 
237  NOP-NOP+1 

IF<  I  J)"IF<  IJM-100 

C  SELECT  THE  NEIGHBOR  HAVING  THE  NEXT  HIGHER  I  INDEX  VALUE,  BUT  SKIP  IT 
C  IF  II,  JJ  IS  ON  THE  MAXIMUM  I  EDGE. 

240  IF  (II.  EG.  I  END)  GO  TO  247 
IT1-II+1 

IT2-JJ 
I RET *4 
CO  TO  200 

249  IFIKLOSE.  EQ.  1)  GO  TO  290 

C  ELMNT  II+l.  JJ  IS  NOT  FLAMING  ->  II,  JJ  IS  ON  THE  PERIMETER. 

247  NOP-NOP-H 

IF  < I J )  —  IF ( IJ1  +  1000 

C  FOR  LINING  SURFACE  ELMNTS  SKIP  TO  THE  CONSIDERATION  OF  NEIGHBORS  AT 
C  THE  CORNERS  OF  ELMNT  II,  JJ. 

290  IF<  I.  LE.  LSNJCO  TO  299 

C  FOR  SEATS  COMPUTE  THE  PERIMETER  FOUND  SO  FAR  THEN  IF  ALL  FLAMING 
C  ELMNTS  ON  THE  SEAT  PART  (CUSH.  BOTTOM,  CUSH.  TOP,  OR  BACK  REST)  HAVE 
C  BEEN  CHECKED  FOR  FLAMING  NEIGHBORS  SKIP  TO  STMT  390.  IF  NOT  SET  IBASE 
C  TO  THE  HIGHEST  INDEX  IN  THE  IFR  AND  JFR  ARRAYS  SO  FAR  USED  AND  RETURN 
C  TO  STMT  192  FOR  ADDITIONAL  CHECKING  OF  NEIGHBORS  BEYOND  THAT  INDEX. 
TEMP "NOP 

PER  I M"PER I M+TEMP  *SQD 
NOP-O 

279  IF (ICTR  GE.  NTOT)CO  TO  390 
ICTR"ICTR*1 

IP(  JFR<  ICTR).  LT.  J1  OR.  JFR  (  ICTR ) .  GT  J2 )  GO  TO  279 
I USE ( ICTR ) »l 
I BASE- ICTR 
GO  TO  192 

C  FOR  LINING  SURFACES  TEST  THE  NEIGHBORS  AT  THE  CORNERS  OF  ELMNT  II,  JJ 
C  TO  FIND  IF  ANY  ARE  FLAMING,  STARTING  FIRST  WITH  1 1*1,  JJ-l  BUT  SKIP 
C  THIS  ELMNT  IF  II.  JJ  IS  ON  THE  MAX  I  OR  MIN  J  EDGE. 

299  IF <  1 1  GE.  IEND  OR.  JJ  LE.  J1  >00  TO  319 
IT1  — 1 1*1 
IT2-JJ- 1 
l RET - 1 
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300  DO  305  IL  — l ,  NTOT 

C  THIS  LOOP  THRU  305  HAS  THE  SAME  FUNCTION  AS  THAT  THRU  STMT  205,  TO 
C  FIND  AND  TO  MARK  NEIGHBOR ING  ELMNTS  ALSO  FLAMING 
IFdL.  EG.  IBASE  ) GO  TO  305 

IF<  IT1.  NE.  IFR<  IL)  .OR.  I T2.  NE.  JFR  ( IL )  )  GO  TO  305 
IF< IUSEI IL).  NE. 0)G0  TO  307 
NFOUND-NFOUND* 1 
I USE ( IL ) -N08*l 
GO  TO  307 
305  CONTINUE 

C  THIS  COMPUTED  GO-TO  CONTROLS  THE  SELECTION  OF  THE  NEXT  NEIGHBORING 
C  ELMNT  TO  BE  EXAMINED 
307  GO  TO  <315,  325,  335.  340),  IRET 
315  CONTINUE 

C  SELECT  THE  NEIGHBOR  II  +  l.  JJ+1,  BUT  SKIP  IT  IF  II,  JJ  IS  ON  THE  MAX  I 
C  OR  MAX  J  EDGE. 

IF<  1 1.  GE.  IEND  OR  JJ.  GE.  J2JG0  TO  325 
IT1-II+1 
IT2-JJ+1 
IRET-2 
GO  TO  300 
325  CONTINUE 

C  SELECT  THE  NEIGHBOR  II-l,  JJ+1,  BUT  SKIP  IT  IF  II,  JJ  IS  ON  THE  MIN  I 
C  OR  MAX  J  EDGE. 

IFdl.LE.  I  OR.  JJ.  GE.  J2)G0  TO  335 
IT1-II-1 
IT2-JJ+1 
IRET-3 
GO  TO  300 
335  CONTINUE 

SELECT  THE  NEIGHBOR  II-l,  JJ-1,  BUT  SKIP  IT  IF  II,  JJ  IS  ON  THE  MIN  I 
OR  MIN  J  EDGE. 

IFdl.LE.  I  .  OR.  JJ.  LE.  J1  )G0  TO  340 
ITt-II-1 
IT2-JJ-1 
IRET-4 
GO  "0  300 
C  COMPUTE  fidE  PERIMETER. 

340  TEMP-NCP 

PER  I M-PER I M+TEMP+SQD 
NOP-O 

345  CONTINUE 

C  THE  FOLLOWING  13  STMTS  TEST  TO  DETERMINE  THE  NUMBER  OF  NEWLY 
C  DISCOVERED  FLAMING  ELMNT  NEIGHBORS.  IF  SOME  HAVE  BEEN  FOUND  DURING 
C  THE  LAST  SCAN  CONTROL  RETURNS  TO  STMT  192  TO  CONTINUE  SCANNING  IF 
C  NONE  HAVE  BEEN  FOUND  CONTROL  SKIPS  TO  STMT  350  TO  START  THE 
C  COMPUTATION  OF  FIRE  PROPERTIES. 

NUSE-NUSE+ 1 

IF ( NUSE.  LT  NBASEJOO  TO  346 

IF < NFQUND  EQ  0)GO  TO  350 

NBASE-NFOUND 

NFOUND-O 

NUSE-0 

NOB-NOB* 1 

346  NEXT-NUSE+1 

C  THE  LOOP  THRU  348  RESETS  THE  SEARCH  POINT,  IBASE,  IN  THE  ARRAYS  IFR 
C  AND  JFR 

00  348  IL— 1 , NTOT 

IF ( IUSE ( IL >  NE  NOB) GO  TO  348 

NEXT-NEXT- 1 

l  F  <  NE  X  T  NE  0)G0  TO  348 
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IBASE-IL 
GO  TO  1 92 

348  CONTINUE 

CONTROL  WILL  REACH  THIS  WRITE  STMT  ONLY  IP  AN  ERROR  OCCURS  IN  THE 
SCANNING  PROCESS.  PERTINENT  WORKING  VARIABLES  ARE  PRINTED  AND  THE  PGM 
IS  STOPPED 

WRITE(6, 349) 

349  FORMAT (/ 10X,  47HERR0R — DETERMINATION  OF  ELEMENTS  COMPOSING  FIRE) 
WRITE  <  6,  3490)  I,  I  I,  JU,  IT1.  ITS.  ISAVE.  NEXT,  NSQ,  NOP.  NOB,  NBTOT ,  NUSE, 

1  NBASE,  NFOUND,  ICTR,  IBASE,  NTOT,  IL 

3490  FORMAT! //SX,  ISIS) 

IF (NTOT  LS.  0)  STOP 

WR I TEX  6,  3491 ) < IFR(NU) ,  JFR (NJ>,  lUSE(NU) ,  NJ-1, NTOT) 

3491  FORMAT (/SX,  315) 

STOP 

C  THE  NEXT  18  STMTS  DEFINE  THE  MAXIMUM  AND  MINIMUM  I  AND  J  INDICES  FOR 
C  THE  FIRE  BASE  JUST  DISCOVERED  AND  ELIMINATE  THE  ELEMENTS  OF  THIS  BASE 
C  FROM  THE  IFR  AND  JFR  ARRAYS 

350  ISET=0 
IVMN-999 
JVMN»999 
IVMX  —  1 
JVMX  —  1 

DO  360  IL-l.NTOT 

IF  (  I  USE  (  IL)  NE  0)  GO  TO  355 

I SET* I SET* 1 

IFR  < I SET ) * IFR  < IL) 

JFR ( I SET) -JFR ( IL) 

IUSE( ISET)*IUSE< IL; 

GO  TO  360 

355  IF  < IFR  < IL )  LT  IVMN)  IVMN-IFR(IL) 

IF ( JFR ( IL )  LT  JVMN)  JVMN*^FR ( I L ) 

IF ( IFR ( IL)  CT  I VMX )  IVMX-IFR(IL) 

IF  (  JFR  ( IL)  GT  JVMX  )  JVMX-JFRUL) 

360  CONTINUE 

C  NTOT  IS  NOW  RESET  TO  THE  NUMBER  OF  FLAMING  ELMNTS  REMAINING  ON  THIS 
C  SURFACE  OR  GROUP  OF  SURFACES  THAT  HAVE  NOT  AS  YET  BEEN  ORGANIZED  INTO 
C  A  FIRE  BASE. 

NTOT* I SET 

C  FOR  SEATS  NO  RE-SCANNING  WILL  BE  REQUIRED 
IF(  I.  GT  LSN ) GO  TO  480 

C  SET  THE  FLAG  ISAVE  »  1  IF  RE-SCANNING  FOR  ADDITIONAL  FIRES  WILL  BE 
C  REQUIRED 

I SAVE* 1 

IF ( I SET  EG  0 )  ISAVE-0 

C  INCREASE  THE  NUMBER  OF  FIRES  BY  ONE  AND  SAVE  THE  I  AND  J  LIMITS.  IF 
C  THIS  IS  A  FIRE  ON  A  SEAT  ISFIRE(K)  WILL  BE  CHANGED  LATER 
480  K-K+l 

ISFIRE ( K ) *0 
I VM I N  ( K  >  *  I VMN 
I VMAX ( K ) » I VMX 
JVM I N ( K ) * J VMN 
JVMAX ( K ) *JVMX 
XNSG*NSG 

C  COMPUTE  FIRE  BASE  AREA. 

AF ( K ) *SQD*SQD*XNSQ 

C  COMPUTE  FIRE  BASE  HYDRAULIC  RADIUS. 

YZ(K>*2  0*AF(K)/PERIM 

C  THE  NEXT  26  STMTS  COMPUTE  THE  DISPLACEMENT  OF  THE  FIRE  BASE  CENTER 
C  FROM  THE  FLOOR,  Z8(K). 

IF ( I  GT  LSN)  GO  TO  489 
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IFtVNl I-  1  )  NE.  0.  !  GO  TO  l33 

C  FOR  HORIZONTAL.  LINING  SURFACES  Z3  »  Z.  THE  SURFACE  DISPLACEMENT 
ZB  ( K )  — Z  ( I ) 

GO  TO  493 

C  FOR  VERTICAL  LINING  SURFACES  THE  MAX  AND  MIN  I  VALUES  ARE  USED  TO 
C  FIND  THE  VERTICAL  EXTENT  OF  THE  FIRE 
4S5  KX-IVMIN(K) 

IF ( VN< 1,1)  LT.  0  )  KX— I VMAX  <  K ) 

ICRIT-IRAY(KX) 

FMIN»XMN< ICRIT) 

IF < VN ( 1 .  1)  LT  0.  I  GO  TO  487 
DIF»IVMIN(K)-IMIN( ICRIT) 

GO  TO  488 

487  DIF*IMAX< ICRIT)  —  I VMAX  <  X i 

488  DIF-DIF/2.  0 
fmin-fmin+dif 

DIF«FLOAT< I VMAX ( K ) - I VMIN( K > ) /4  0 

ZB(K)»FMIN-<-DIF 

GO  TO  493 

C  FOR  SEAT  GROUPS  ZB  IS  COMPUTED  FROM  A  WEIGHTED  AVERAGE  OF  THE  NUMBER 
C  OF  BURNING  ELMNTS  ON  EACH  OF  THE  7  SEAT  SURFACES.  WEIGHTING  FACTORS 
C  ARE  THE  DISTANCES  FROM  THE  FLOOR  TO  THE  CENTER  OF  EACH  SEAT  SURFACE. 

489  DO  490  KJ-1.7 

490  TEM J  <  X  J ) —NSFL ( K J ) 

SUM-0. 

DO  491  XU— 1 ,  7 

491  SUM-SUM*TEMJ(KJ) 

ZB  <  X  )  —  <  TEMJ  ( 1 )  *2  #TEM  J  <  2  > +3.  75*TEMJ(3>+4  5*TEMJ  <  4 ) +3  *TEM J ( 3 > + 1 .  3* 
1TEMJ ( 6 ) *  1 . 23*TEmj<7) )/SUM 
IF ( ZB ( X )  LT  I  0!  ZB<K)=1  0 
IF  (  ZB  (  X  )  GT  4  3)  ZB<K)-4.  3 

C  BASED  ON  THE  VALUES  OF  ZB  AND  THE  UPPER  ZONE  THICKNESS  XL.  DETERMINE 
C  IF  THE  FIRE  OCCUPIES  THE  UPPER  ZONE.  IZDNECK>»2,  OR  THE  LOWER  ZONE. 

C  I  ZONE ( K )  —  1 . 

493  ZO-ZD( IFRCMP) 

I  ZONE ( K ) —2 

IF  <  ZB  ( K  ) .  LT.  ZO  )  I  ZONE  (  K  )  —  1 

C  FOR  SEATS. 'SET  THE  ARRAY  ISFIRE.  AND  THE  COUNTERS  FSN1.  FSN2.  AND  FSN3 
IFU.LE.  LSN)  GO  TO  300 
I SF I RE ( K ) — I — LSN 
FSN1— NSFL ( 1 ) 

FSN2-NSFL  <  6 ) +NSFL  <  7 ) 

FSN3-NSFL  ( 2  >  +NSFL  (  3 )  -‘■NSFL  <  4  )  +NSFL  (  3  ) 

C  PREPARE  TO  COMPUTE  THE  FLAME  LENGTH  AND  OTHER  FLAME  PROPERTIES 
C  DEPENDENT  UPON  THE  MATERIAL  BURNING  BY  SELECTING  THE  NUMBER.  M,  OF 
C  THE  MATERIAL. 

300  IFdSFIRE(K)  NE.  0)  GO  TO  310 
I I-IVMIN(K) 

IX-IRAY( II ) 

M-IMATLC IX ) 

GO  TO  383 
310  JJ— UVMIN  <  X ) 

I X— IRAYS  <  UJ ) 

M-IMATSI IX) 

383  CONTINUE 

C  FOR  THE  SPECIAL  CASE  OF  THE  IGNITION  SOURCE  FIRE  THE  COMBUSTION 
C  QUANTITIES  GCMB  THRU  RADFIR  ARE  COMPUTED  AS  UEIGHTED  AVERACES  OF  THE 
C  SAME  QUANTITIES  FOR  THE  IGN  SRC  FUEL  AND  FOR  THE  MATL  ON  WHICH  THE 
C  FUEL  LIES.  THE  WEIGHTING  FACTORS  ARE  DETERMINED  FROM  THE  RATIOS  OF 
C  THE  IGN  SRC  FUEL  AREA,  AFI,  AND  THE  TOTAL  BASE  AREA  OF  THE  FIRE 
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C  INVOLVING  THE  IGN  SRC  FUEL.  AF '  K  > 

I F ( I  BURN.  EG  0)  GO  TO  Sc? 

IF  < I  NE  IGSN)  30  TO  189 

IF( ICMNI.LT.  IVMIN(K)  OR  IGMXI.GT  IVMAX(K))  GO  TO  589 

IF ( IGMNJ.  LT.  JVMIN  <  K )  OR  IGMXJ  GT  UVMAX(K)  )  GO  TO  589 

AEXP«AF(K)-AFI 

IFIAEXP  LE.  0.  0>  GO  TO  589 

RAl-AFI/AFOO 

RA2-AEXP/AFIK ) 

587  QCMB<K)«GCI*RA1*QTAB(M>*RA2 

GAMMA ( K ) -GAM! »RA1 +GT AB  <  M ) *RA2 
RHOZ  <  K ) "RHOI *RA1 +RTAS  <  M ) *RA2 
UZ  <  K  > "XMU I *RA1 +UTAB <  M  >  *R A2 
RADFIR(K)»RA0I*RA1*RADTA3<M)*RA2 
GCM8 ( K ) —QCMB  <  K  )  ♦  < 1 .  -RADFIRIX.) ) 

GO  TO  600 
589  RA1— 0. 

RA2-1. 

GO  TO  587 

C  PREPARE  TO  COMPUTE  THE  FLAME  LENGTH  BY  SELECTING  THE  APPROPRIATE 
C  EXTERIOR  (TO  THE  FLAMES)  GAS  DENSITY  AND  TEMPERATURE  BASED  ON  WHICH 
C  ZONE  THE  FIRE  BASE  CENTER  OCCUPIES. 

600  IF  < I  ZONE ( K ) . EG.  2 )  GO  TO  610 
RR-RHOLI IFRCMP ) 

TT-TLI IFRCMP) 

Y02  »  CHILI 2.  IFRCMP) 

GO  TO  620 

610  RR-RHOUI IFRCMP) 

TT-TUI IFRCMP) 

Y02  »  CHIU  I  2.  IFRCMP) 

C  THE  NEXT  10  STMTS  COMPUTE  THE  FLAME  LENGTH  SEE  EG  5-1 A  OF  C 1 3 
620  OMEGA (  K  )  - 1 .  /( 1.  ♦ < Y02*GCNB ( K ) )/< GAMMA ( K ) *CP*TT ) ) 

R-RR/RHOZIK) 

X-OMEGA ( K ) *R ♦GAMMA ( K ) / Y02 

TEMP" ( OMEGA < K ) / < 1 .  -OMEGA(K) >*X/(0.  0081 )*X)**0.  2 
TEMP»YZ<K)*TEMP*< ( UZ < K > / ( R*SGRT < GRAV*YZ ( K > ) ) >**0.  4) 

TEMP1-R-1  +GAMMA(K)/Y02*< (1.  -OMEGA (K) > /OMEGA (K) > 

TEMPI" <2. 25*TEMP 1 +1 . 6-R)**3 

TEMP2«***3*( 1.  — OMEGA (K  )*<  1.  +GAMMA ( K )  / Y02 )  / X  )  *  1 .  95 
FKA»<  2.0736  *< 1 .  -OMEGA <K >>> *TEMP 1 /TEMP2 
FLML<K>»< 1.  49+0.  916*<FKA**0.  2) >*TEMP 
C  IF  THE  FLAME  LENGTH  IS  GREATER  THAN  THE  CEILING  HEIGHT  SET  IT  TO  CH. 
IF<FLML<K>  .  GT  CH)  FLML  C K ) "CH 

C  COMPUTE  THE  COMBUSTION  ZDNE  LENGTH.  SEE  EG  5-6  OF  Cl],  IF  COMB  IS 
C  GREATER  THAN  THE  CEILING  HEIGHT  SET  IT  TO  CH. 

COMB  <  K  )  —  1 .  49*TEMP 
IFICOMBIK).  GT.  CH)  COMB<K)»CH 

C  THE  NEXT  5  STMTS  COMPUTE  THE  EMITTANCE  AT  THE  FLAME  BASE  CENTER 
C  SEE  EG  2-4  OF  C23 

AFTR«- 1  8*ABSCF(K) 

EXP1"1 .  -EXP  <  AFTR *FLML  <  K ) ) 

EXP2-1.  -EXP  <  AFTR*YZ ( K )  ) 

EXP3-1.  -EXP ( AFTR*SQRT ( FLML ( K ) *FLML ( K  > ♦YZ ( K ! *YZ ( K ) ) ) 

ALPC"EXP 1 +EXP2-EXP3 

C  THE  REMAINING  STMTS  OF  THE  SUBROUTINE  COMPUTE  THE  SMOLDERING  RANGE. 

C  PDH,  SEE  SECTION  4.2.3  OF  C13. 

ALP-0  5*ALPC 

QPR-QP <M)-<GC ( 1 ) +GC ( 2 ) ) /2. 

P-( ( ALP*FLML  <  K  >  *FLML  <  K ) ) / <  ALPC*P I*YZ  <  K ) ) )-YZ(K> 

SZZ-ALP*YZ(K)*FLML(K)*FLML(K)/PI 

SZZ»SZZ»<  < 1.  / ALPC )  —  <  EB /GPR  > ) 
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CAM— P '2 

aa— P*?/3. 

SB* (2  *P*P*P*27  •SZZ1/Z7 
TEMP"BB*BB/4  *AA*AA/27  *AA 
IF  <  TEMP )  630,640,630 
630  T1*S0RT< -AA*AA*AA/27  ) 

T2— BB/  (2.  *T1  ) 

IF<  T2-  LT  -1.  )  T2— t. 

IF (  T2-  ST  1.  )  T2*l. 
ANC-AC0S<T2) 

T4*2.  *SQRT(-AA/3.  ) 

X 1 »T4*C0S ( ANG/3.  )>GArt 
X2-CAM*T4*C0S< (ANC+2.  *PI >/3  > 
X3»GAM+T4*C0S< <ANC*4.  *PI>/3.  ) 
00  TO  643 

640  Tl ■  ( ABS  ( 88  >  /  2.  >*0. 333333 
IF  <  BB  ST  0.  )  Tl— Tl 
Xl*2.  *T 1 ♦OAM 
X2-0AM-T1 
X3— 999 
643  PDH-X1 

IF  (  X2.  ST.  POH  1  PDH-X2 
IF  (  X3.  ST.  PDH )  PDH-X3 
PDH»PDH-Y2(H> 

CO  TO  700 
630  Tl— BB/2. 

T2*SQRT ( TEMP  > 

F1«(ABS(T1+T2> )**0.  333333 
IF <  (T1+T2).  LT  0.  )  FI— FI 
F2-0. 

IF ( Tl .  EQ.  T2)  SO  TO  660 
F2-(ABS(T1-T2) )**0  333333 
IF<  (T1-T2)  .  LT  O.  )  F2— F2 
660  PDH»F1+F2+GAPI— YZ  <K) 

700  RETURN 
END 
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Subroutine  rates! i > 


C  OBJECTIVE(S) 

C  ( 1 )  COMPUTE  RATES  OF  FLAME  SPREAD;  RATES  OF  HEAT  *  SMOKE,  AND  GAS 

C  RELEASE,  TIMES  TO  IGNITE,  BURN  OUT,  BEGIN  TO  SMOLDER,  EXTINGUISH 

C  FROM  SMLDRG;  AND  THE  SMLDRG  LAG  TIME  FOR  THE  CURRENT  FIRE,  K,  ON 

C  SURFACE  I 

C  (2)  COMPUTE  LOCAL  FLAME  RADIATION  LEVELS  FOR  THE  CURRENT  FIRE.  31,32. 

C  THESE  LEVELS  ARE  USED  TO  FIND  THE  RATES  AND  TIMES  IN  < 1)  ABOVE. 

C  (3)  COMPUTE  THE  FLAME  ABSORPTION  COEFFICIENT  FOR  THE  CURRENT  FIRE 
C  USING  THE  NEWLY  DETERMINED  VALUE  OF  THE  RATE  OF  SMOKE  RELEASE. 

C  THIS  ABSORPTION  COEFF.  WILL  CARRY  OVER  TO  THE  NEXT  PASS  THRU  THE 

C  FLAME  SPREAD  CALCULATIONS  TO  COMPUTE  Gi  AND  32. 

C  COMMENTS 

C  (1)  DUE  TO  THE  POSSIBILITY  OF  THE  CURRENT  FIRE.  K,  SPREADING  TO  NEW 
C  SURFACES  OF  DIFFERENT  MATERIALS.  RATES  COMPUTES  THE  RADIATION 

C  CONTROLLED  QUANTITIES  FUR  ALL  CABIN  SURFACES  OSING  THE  CURRENT 

C  FIRE'S  LOCAL  RADIATION  AND  THE  UPPER  ZONE  GAS  RADIATION. 


COMMON/CNTRL/DELTAT, DELTSP, ECOFLG, IDELT, IDENT(20>, IDTPRV, IPEMS. 

1  IPSPR, IPAUX, IRATIO, ISAVE, ISCALE. ITFIN, ITIME, ITIM2, 

2  ITSPRD, NP ASS. TFINAL,  IDBUC1 , EPSLN. MAXITR.  MAXCUT, 

3  JCBSKP 

COMMON /FIRES /AFM<7) ,  ASM(7) ,  I  STATE! 120,  15),  ISTATS(9,  16, 22), 

1  IWORD(  120,  15),  I  WORDS  (9,  16,  22).  NFLM  ( 7  > .  NPYR(7), 

2  RGS( 10, 7), RSS ( 7 ) , TOTGAS ( 10) ,  TOTSEM.  TRGF ( 10) . 

3  TRGSC 10), TRSF, TRSS. NCE(30),  VITNR,  TOTVIT.  RADFIR ( 30 ) , 

4  ACM ( 7 ) , AF < 30 ) , AF I . AEXP, C0MB(30>. DQK,  FLML ( 30 ) , FSN1 , 

5  FSN2,  FSN3,  GAMMA (30).  IBURN,  IF<600),  IGMNI,  IGMNJ,  IGMXI. 

6  IGMXJ, IGNFIR, IGNIJ<2, 100), IGSN. ISFIRE<30>. IVMAX(30>. 

7  IVMIN!  30 ) .  I VMN,  IVMX,  IXFIRE,  IZ0NE(30>. JVMAX(30>, 

8  UVMIN<30).  JVMN,  JVMX.  K,  NFEI30),  NFIRES,  NIJC.  NIJ5Q, 

9  NPE  (  30 ) ,  NSFL  ( 7 ) ,  OMEGA!  30),  PDH,  PIGN,  RF(20,  4),  RFS<7,  4), 

1  RFWS.  RGF( 10, 7), RGFK( 10), RH0Z(30), RSF(7), RSFK, TDQ. 

2  TBURNI.  UZ<30).  YZOO).  ZB (30),  RHOEFG,  CHIEFG!  11), 

3  FLOWIN, FLWOUT, TEFG.  IFRVNT . GENRAT (11), TDGMTL ( 7 ) , 

4  TP ( 7) . TPC ( 7 ) 

COMMON/ GASES/CH IL ( 1 1 . 5),CHIU(  1 1.  5),  CP-  NGAS (11),  NSPCS.  PAMB, PF(5), 

1  RHOAM, RHOL ( 5 ) , RHOU ( 5) . TAM, TL ( 5 ) . TU ( 5 ) . VOLL ( 5 ) , 

2  VOLUO).  ZD  <  5  ) ,  XTHEN(  120).  WMOLEC(  11  >,  TUO(  101  ), 

3  UC0RU20) 

COMMON/GMTRY/ IMATL ( 20 ) , IMATS ( 7 ) , IMTLP(4>, IMAX(30). IMIN(30>, 

1  IRAY( 116),  IR AYS ( 22 ) ,  UMAX(30>,  JMIN(30),  LSN,  MAXELI,  NS, 

2  CH.  CL ( 4 ) ,  CW,  DWS,  HSTS,  IARX(40,  15),  IARY(40.  12),  ICLL, 

3  ICLR,  I END,  IFIRL,  JFIRR,  ILSTL,  ILSTR,  I0NE19), 

4  ISSWLI  ( 9,  10).  ISSWL J ( 9,  10),  ISSWRK9,  10).  ISSWRJ(9,  10). 

5  I SWSL  (IS.  8 ) .  1SWSR  (15,3),  ISTART,  NPROU,  IPJUL,  IPJLL- 

6  IPUUR,  IPULR,  JEND,  JONE  (9) .  JSTART .  NJS.  NSG.  NV,  SGWD  ( 9 ) , 

7  SL. SWD ( 20 ) , VN ( 20 , 3),  VENTH(24) ,  VENTW ( 24 ) ,  VENTT ( 24 ) , 

a  XMN ( 30 ) , XMX ( 30 ) , XC0R(9) , YCOR ( 9 ) , ZC30), SSGWD, TVSC. 

9  HT1.  HT2.  HT3,  HT4<  10),  NSSTS,  SL3W,  SX(30),  SZ(30>, 

1  CNCTNS ( 24 ) , NCOMPS, IFRCMP, FLOW (24), INTO (24), VT0TAL(4>. 

2  FHMIN 

COMMON/MATLS/TAB  X  <  18,  7,  6),  TA8Y(  IS,  7,  6),  NTXG,  FOXI,  RADTAB  ( 7 ) ,  RADI, 

1  FOX (7), NMATLS. DGI- DQM ( 7 > , GAM I , GT AB ( 7 ) ,  ITF(20>.  IRAMPT, 

2  ITFC ( 20 ) ,  ITFCS ( 7  > ,  ITFS(7>,  ITP(20>.  ITPC(20>.  ITPCS(7), 

3  ITPE  <  20  ) ,  ITPES(7>,  ZTPS(7>,  QCI,  <3P  (7) ,  QTAB  (  7) ,  RHOI, 

4  RH0M(7) ,  RSI. RTAB (7) , RTGI < 10) , UTAB ( 7 > , CNDCTY(7) ,  XMUI. 

5  XMFI,  TKNS  ( 7 ) ,  TSL<30.  2,  4),  TSP(2,  2,  4),  CPM  ( 7 ) ,  WMMTL  ( 7 ) . 

6  WMIGF,  TKNSIN(7) 

COMMON/ PAR AMS/GRAV,  PI,  QTR,  RGAS,  SIGMA,  SOD,  THOU-  TOL,  EC,  EP 
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COMMGN/RADTN, AL PC.  ABSCF(20>,  ED,  GC < 2 ) 

DIMENSION  GB  <  20 ) , QBS ( 7 ) 

C  01  »  LOCAL  FLAME  RADIATION  INTENSITY  AT  THE  EDGE  OF  THE  FLAME  BASE 

C  (FLAME  FOOT)  IN  BTU/ <FT*FT*SEC  > 

C  Q2  *  LOCAL  FLAME  RADIATION  INTENSITY  OVER  FLAME  BASE  (AVERAGE 
C  VALUE)  IN  BTU/ (FT*FT*SEC > 

C  ALPC.  THE  FLAME  EMITTANCE  FOR  THIS  FIRE,  WAS  JUST  FOUND  IN  SUBR  SCAN 
Ql*ALPC*EB/2. 

Q2-0. S4*EB»ALPC 

C  IRET  IS  A  FLAG  TO  INDICATE  WHETHER  THE  SURFACE  UNDER  CONSIDERATION  IN 
C  THE  LOOP  BELOW  IS  A  LINING  (IRET  ■  0)  OR  A  SEAT  SURFACE  (IRET  »  1) 
IRET-0 

C  ZZ  IS  THE  DISTANCE  FROM  THE  CABIN  FLOOR  TO  THE  BOTTOM  OF  THE  UPR  ZONE 
ZZ  »  ZD ( IFRCMP ) 

C  QB  -  ARRAY  CONTAINING  THE  RADIATION  INTENSITY  DUE  TO  UPPER  ZONE  GAS 
C  RADIATION  AT  EACH  LINING  SURFACE,  SUBSCRIPT  IS  SURF  NUMBER 

C  Q8S  ■  ARRAY  CONTAINING  THE  RADIATION  INTENSITY  DUE  TO  UPPER  ZONE  GAS 
C  RADIATION  AT  EACH  SEAT  SURFACE,  SUBSCRIPT  IS  SURF  NUMBER 

C  QBS  IS  ASSUMED  TO  BE  THE  SAME  FOR  THE  CORRESPONDING  SURFACE 

C  ON  ALL  SEAT  GROUPS. 

C  INITIALIZE  GB ( 1 )  TO  QC(l>,  THE  GAS-TO-LOWER-ZONE-SURFACES  RADIATION 
C  FLUX  COMPUTED  DURING  THE  LAST  PASS  IN  ATMOS  IF  THE  UPPER  ZONE  HAS 
C  REACHED  THE  FLOOR.  SET  QB(1>  TO  QC<2>.  THE  GAS-TO-UPPER-ZONE-SURFACES 
C  FLUX  LAST  COMPUTED  IN  ATMOS.  ON  THE  FIRST  FLAME  SPREAD  PASS  GC(1>« 

C  GC  ( 2 )  »  0. 

QB( 1 >»QCt I ) 

IF(-ZZ. LE. 0.  >  GB(1)-GC(2) 

C  ICT  IS  A  SWITCH  USED  TO  DIFFERENTIATE  BETWEEN  LININC  AND  SEAT  SURFACES 
C  AND  TO  SELECT  AMONG  SEAT  SURFACES.  ICT»1  »>  LINING  SURFS. 

ICT-1 

C  START  OF  A  LOOP  OF  ALL  CABIN  LININC  SURFS,  L  *  SURFACE  NUMBER 
L-l 

10  L-L+l 

IF ( L.  GT.  LSN ) GO  TO  ISO 

C  DETERMINE  THE  POSITION  OF  THE  ZONE  INTERFACE,  ZZ,  WITH  RESPECT  TO  THE 
C  MAXIMUM,  XMX,  AND  MINIMUM,  XMN,  HEIGHTS  OF  A  SURFACE  ABOVE  THE  FLOOR 
C  AND  APPORTION  THE  FLUX  LEVELS  GC ( 1 >  AND  QC(2>  ACCORDINGLY  BY  LINEAR 
C  INTERPOLATION. 

100  IF(XMXCL)  .  LT.  ZZ  )  GO  TO  110 
IF(XMN(L)  GT.  ZZ  )  GO  TO  120 
TEMP  »  0. 

D  -  XMX(L)  -  XMN(L) 

IF (  D  .  LE.  0.  )  GO  TO  120 

TEMP  *  (  (  ZZ-XMN(L)  )*GC  (  l  )  +  (  XMX  ( L  ) -ZZ  )  *QC  (  2  )  )  /  D 
GO  TO  130 
110  TEMP  •  GC ( 1 ) 

GO  TO  130 
120  TEMP  ■  0C<2> 

130  CONTINUE 

C  USE  FLAG  IRET  TO  ASSIGN  THE  FLUX  LEVEL  TO  THE  ARRAY  FOR  LINING  SURFS, 

C  GB,  OR  FOR  SEATS,  GBS.  SUBSCR  II  FOR  QBS  WILL  HAVE  BEEN  SET  WHEN 
C  CONTROL  REACHES  STMT  160,  SEE  BELOW. 

150  IF< IRET  EG.  1 )G0  TO  160 
GB(L)*TEMP 
GO  TO  170 
160  GBS( I I ) “TEMP 

C  LOOP  BACH  TO  STMT  10  IF  NOT  ALL  LINING  SURFS  HAVE  BEEN  CONSIDERED 
C  (ICT-1).  FOR  ICT  -  a.  3.  OR  4  SKIP  TO  STMTS  DEFINING  XMX  AND  XMN  FOR 

C  SEAT  SURFACES  FROM  WHERE  CONTROL  RETURNS  to  STMT  100  FOR  FLUX 
C  ASSIGNMENT  FOR  ICT  -  3  SKIP  TO  200  TO  START  PROPERTY  DETERMINATIONS 
C  NOTE:  STMTS  SETTING  XMX  AND  XMN  FOR  SEATS  SHOULD  BE  MOVED  TO  SUBR 


c  :n:ts  in  any  future  upgrade. 

170  GO  TO (  10.  70,  80,  90.  200),  ICT 

C  CONTROL  REACHES  THIS  SECTION  AFTER  LINING  SURFS  HAVE  BEEN  EXAMINED. 

C  NOW  THE  7  SEAT  SURFACES  WILL  BE  ASSIGNED  FLUX  LEVELS.  GBS.  DEPENDING 
C  UPON  WHICH  ZONE  THEY  OCCUPY.  SEE  REFS.  FOR  SEAT  SURFACE  NUMBERING. 

180  G8S(i>-GC(l) 

XL  -  CH  -  ZZ 

C  IF  THE  UPPER  ZONE  COVERS  ALL  OF  THE  SEATS  USE  UPPER  ZONE  FLUX  LEVEL 
IF (  XL.  GT.  HT3>  QBS<  1 )  -QC  <  2 ) 

C  TEST  TO  SEE  IF  ANY  PART  OF  THE  SEATS  IS  IN  THE  UPPER  ZONE. 

IF  <  XL.  GT.  HT1 )  GO  TO  50 
C  ALL  THE  SEATS  ARE  IN  THE  LOWER  ZONE. 

GBS ( 4 ) -QC ( 1 ) 

GO  TO  60 

C  AT  LEAST  THE  BACKREST  TOPS  ARE  IN  THE  UPPER  ZONE. 

30  GBS ( 4 ) »GC ( 2 ) 

C  TEST  TO  SEE  IF  THE  SEAT  CUSHION  TOPS  ARE  IN  THE  UPPER  ZONE 
60  GBS ( 6 ) -QC ( 1 ) 

IF  <  XL.  GT.  HT2 )  GBS  ( 6 )  -GC  ( 2 ) 

C  LOWER  SEAT  BACK  REAR  SURFACE  (SEAT  SURF  2) 

IRET-1 
ICT-2 
1 1-2 

XMX  ( L )  -3.  0 
XMN ( L )  —  1 .  0 
GO  TO  100 

C  UPPER  SEAT  BACK  REAR  SURFACE  (SEAT  SURF  3) 

70  ICT-3 
1 1-3 

XMX  (  L )  —4.  3 
XMN  ( L )  —3.  0 
GO  TO  100 

C  SEAT  BACK  FRONT  SURFACE  (SEAT  SURF  3) 

80  ICT-4 
1 1-3 

XMX  (L )  —4.  3 
XMN(L>-1.  3 
GO  TO  100 

C  SEAT  CUSHION  FRONT  SURFACE  (SEAT  SURF  7> 

90  ICT-3 
1 1-7 

XMX  <  L )  —  1 .  3 
XMN<  L ) — 1 .  0 
GO  TO  100 

C  START  OF  A  LOOP  OVER  ALL  LINING  SURFACES  TD  FIND  FLAME  SPREAD  RATES 
C  AND  IGNITION,  BURN  OUT.  AND  SMOLDERING  LAG  TIMES 
200  DO  210  L-l.LSN 

C  GT-  GAS  ZONE  RADIATION  ( GB )  *  FLAME  FOOT  RADIATION  (01),  THIS  IS  THE 
C  NUMBER  USED  TO  INTERPOLATE  IN  THE  MATERIALS  PROPERTY  TABLES 
QT-QB  <  L ) ♦Gl 

C  SELECT  MATERIAL  TYPE  OF  THIS  SURFACE 
M-IMATL(L) 

C  USE  SUBR  LINT  TO  INTERPOLATE  FOR  THE  VALUES  OF  HORIZONTAL  FLAME  SPREAD 
C  RATE.  RH  (FT/SEC).  UPWARD  FLAME  SPREAD.  RU  (FT/SEC).  AND  DOWNWARD 
C  FLAME  SPREAD  RATE,  RD  (FT/SEC)  INTEGERS  ARE  DATA  TABLE  NUMBERS 
CALL  LINT(  1,  QT,  M,  RH) 

CALL  lINT<2, GT, M, RU) 

CALL  LINTO,  GT.  M.  RDWN) 

IF<  I.  NE.  L)GO  TO  201 

C  ASSIGN  FLAME  SPREAD  RATES  TO  THIS  SURFACE  (L)  ACCORDING  TO  ITS  ORIEN- 
C  TAT I ON  AS  DETERMINED  BY  THE  NORMAL  VECTOR.  VN 
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201  RF  <  L,  1 )-RH 
RF ( L. 2>»RH 

IF  <  VN(L,  3) .  EQ  0.  )  GO  TO  202 
RF (Li 3>-RH 
RF  <  Lj  4  )  -RH 
00  TO  206 

202  IF ( VN<  L<  1 )  LT  0.  >  00  TO  204 
RF(L. 3) -RDWN 

RF ( Lj 4>«RU 
GO  TO  206 
204  RF(L, 3)-RU 

RF ( L> 4) -RDWN 

C  AT  ■  OAS  ZONE  RADIATION  <QB>  +  AVERAGE  FLAME  BASE  RADIATION  ( Q2  > 

C  USE  LINT  TO  INTERPOLATE  FOR  TIME  TO  IONITE.  ITF.  SMLDRG  LAG. TIME, 

C  ITPEi  AND  TIME  TO  BURN  OUT.  ITFC.  ALL  VALUES  ARE  IN  INTEGER  SECONDS 
206  QT-QB ( L ) *02 

CALL  LINT  (4,  OT,  M.  X) 

ITF (L>— X+0.  S 
CALL  LINT < 7 . QT, M.  X) 

ITPE(L)-X*0. 3 
CALL  LINT  (8.  QT,  M,  X) 

ITFC  ( L  >  — X+0.  3 

C  END  OF  THE  LINING  SURFACE  LOOP 

210  CONTINUE 

C  START  OF  A  LOOP  OVER  THE  7  SEAT  SURFACES  TO  FIND  FLAME  SPREAD  RATES. 

C  AND  IGNITION.  BURN  OUT,  AND  SMOLDERING  LAC  TIMES. 

DO  220  L»l.  7 

C  QT  *  GAS  ZONE  RADIATION  (CBS)  *  FLAME  FOOT  RADIATION  (01) 

QT«QBS<L)+Gl 

C  SELECT  MATERIAL  TYPE  FOR  THIS  SEAT  SURFACE. 

M-IMATS<L) 

C  FIND  HORIZONTAL.  UPWARD.  AND  DOWNWARD  FLAME  SPREAD  RATES.  SYMBOLS  AND 
C  UNITS  AS  ABOVE  FOR  LINING  SURFACES. 

CALL  LINT< 1,  QT. M.  RH) 

CALL  LINT (2,  QT.  M.  RU ) 

CALL  LINT<3. QT, M.  RDWN) 

IF(  I.  LE.  LSN ) GO  TO  2100 
2100  RFS(L,  3)»RH 
RFS  (L,  4 )  -RH 

C  SELECT  AMONG  THE  7  SEAT  SURFACES  TO  ASSIGN  FLAME  SPREAD  RATES  BY 
C  SURFACE  ORIENTATION.  N-L -SURFACE  NUMBER. 

N-L 

GO  TO  (211.  212,  212.  211, 214.  211,  214),  N 

211  RFS<L, 1>-RH 
RFS(L, 2I-RH 
GO  TO  216 

212  RFS ( L. 1) -RDWN 
RFStL. 2)-RU 
GO  TO  216 

214  RFSCL,  l)-RU 

RFStL, 2) -RDWN 

C  QT  -  CAS  ZONE  RADIATION  (QBS)  *  AVERAGE  FLAME  BASE  RADIATION  (Q2) 

C  INTERPOLATE  FOR  IGNITION.  BURN  OUT.  AND  SMLDRG  LAG  TIMES  AS  ABOVE. 

216  QT-QBS(L)+Q2 

CALL  LINT (4.  QT.  M,  X) 

ITFS(L)-X*0.  3 
CALL  LINT (7.  QT,  M,  X) 

1TPEB(L)-X*0.  9 
CALL  LINT (9.  QT.  M,  X) 

ITFCS<L)»XfO.  3 

C  END  OF  THE  SEAT  SURFACE  LOOP 
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220  CONTINUE 

C  FOLLOWING  LOOP  IS  FOR  FINDING  THE  RATES  OF  HEAT,  SMOKE,  AND  GAS 
C  EMISSION.  NOTE  THAT  UNLIKE  THE  FLAME  SPREAD  RATES  AND  IGNITION,  ECT. 

C  TIMES  FOUND  ABOVE,  THE  LOOP  IS  OVER  ALL  MATL  TYPES  SINCE  NO  QUANTITIES 
C  INVOLVING  STATE  CHANGES  ARE  INVOLVED 
DO  230  M— 1 , NMATLS 

C  DETERMINE  IF  THIS  SURF, I,  IS  A  SEAT  OR  LINING  SURFACE  AND  ASSIGN  TOTAL 
C  FLUX  LEVELS  AS  REQUIRED.  QT  «  GAS  FLUX  *  AVG  FLAME  BASE  FLUX. 

IFt  I.  GT.  LSN)  GO  TO  221 
QT-QS ( I >  +Q2 
GO  TO  222 

221  QT-QBS(1)+Q2 

222  CONTINUE 

C  INTERPOLATE  FOR  HEAT  RELEASE,  DQM  (BTU/ (FT*FT«SEC ) ) >  SMOKE  RELEASE. 

C  RSF  (PART/ (FT*FT*SEC )) i  AND  GAS  RELEASE.  RGF  ( L3M/ ( FT*FT*SEC ) >  RATES 
C  USING  QT.  VALUES  ARE  FOUND  FOR  ALL  MATL  TYPES 

C  SINCE  THE  MATL  TYPES  WHICH  WILL  BE  INVOLVED  IN  NEW  IGNITIONS  BY  THIS 
C  FIRE  ARE  UNKNOWN  AT  THIS  POINT  IN  THE  PGM  VALUES  ARE  STORED  IN  THE 
C  ARRAYS  DQM, RSF.  AND  RGF  WHICH  ARE  SUBCRIPTED  BY  MATL  TYPE. 

CALL  LINTO.  QT,  M,  DQM(M) ) 

CALL  LINT (A.  QT,  M, RSF(M) > 

NO-8 

DO  229  IG-l.NTXG 
NO-NO+1 

CALL  LINTCNO.  QT,  M,  ROF(  IG.  M)  ) 

229  CONTINUE 

230  CONTINUE 

C  THE  NEXT  38  STMTS  (THRU  460)  COMPUTE  THE  TOTAL  RATES  OF  HEAT,  SMOKE, 

C  AND  GAS  EMISSION,  AND  OXYGEN  CONSUMPTION  FOR  THE  CURRENT  FIRE,  K.  JUST 
C  ISOLATED  BY  SUBR  SCAN.  THESE  VALUES  ARE  STORED  IN 
C  DQK  -  RATE  OF  HEAT  EMISSION  (BTU/SEC) 

C  RSFK  *  RATE  OF  SMOKE  EMISSION  (PARTICLES/SEC ) 

C  VITNR  »  RATE  OF  OXYGEN  CONSUMPTION  ( LBM/SEC  > 

C  RGFK(IG)  -  RATE  OF  EMISSION  OF  THE  GAS  SPECIE  IG  (LBM/SEC) 

C  SINCE  SUMMATION  IS  INVOLVED,  FIRST  INITIALIZE  THE  VARIABLES. 

SA-SQD*SQD 
DQK— O. 

RSFK-O 
VITNR— O. 

DO  319  IG-l.NTXG 
319  RGFK  ( I G )  — 0. 

C  DETERMINE  THE  MAXIMUM  AND  MINIMUM  I  AND  J  INDICES  FOR  THE  ELMTS 
C  COMPOSING  THIS  FIRE. 

1 1  — IVMIN(K) 

12— I VMAX  <  K ) 

Jt-JVMIN(K) 

J2-JVMAX (K) 

C  SEARCH  THIS  AREA  DEFINED  BY  THE  MAX  AND  MIN  I  AND  J'S  TO  FIND  THE 
C  ACTUAL  BURNING  ELMNTS 
DO  460  1 1-11.  12 
DO  490  JJ-J1.J2 

CALL  CVOUT( II. JJ. I. 1ST, I3TP, ITFCP) 

IF(  1ST  NE.  ISTP  OR  1ST  NE.  3)  GO  TD  490 
C  IGNITION  SOURCE  ELMNTS  WILL  NEED  SPECIAL  TREATMENT  SO  SKIP  THE  TEST 
C  FOP  IGN  SRC  ELMNTS  IF  THE  CURRENT  SURF  IS  NOT  THE  IGN  SRC  SURFACE. 
IF(I.NE.  IGSN )  GO  TO  420 

C  TEST  TO  FIND  IF  THIS  ELMNT  (II.JJ)  IS  AN  IGN  SRC  ELMNT ,  IF  SO  SKIP  TO 
C  STMT  449  TO  INCLUDE  THE  EFFECTS  OF  THE  IGN  SRC  FUEL  IN  THE  HEAT,  SMOKE 
C  AND  GAS  RELEASE 

DO  410  KJ-1, NIJSQ 

IF ( II  EQ  IGNI J ( 1 . K J)  AMD  JJ  EQ.  IGNIJ(2, KJ) )G0  TO  449 
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410  CONTINUE 

C  TEST  TO  SEE  IF  THIS  NON-IGN  SRC  ELITNT  IS  A  SEAT  OR  LINING  SURF  ELMNT. 
420  IFfl.GT  LSN)  GO  TO  430 

C  SELECT  THE  MATERIAL  TYPE  FOR  THIS  SURFACE  AND  STORE  IN  KTEMP 
KX*IRAY< II ) 

KTEMP-IMATL(KX) 

GO  TO  435 
430  IS«I-LSN 

C  SELECT  THE  MATERIAL  TYPE  FOR  THIS  SURFACE  AND  STORE  IN  KTEMP 
KX-IRAYS(UJ) 

KTEMP -I MATS <KX> 

C  COMPUTE  THE  TOTAL  RATES  OF  RELEASE  AND  OXYGEN  CONSUMPTION. 

435  DQK»DOK+SA*DGM ( KTEMP > 

RSFK»RSFK*SA*RSF ( KTEMP ) 

TDGMTL < KTEMP  )  =  TDGMTL  ( KTEMP  >  SA  *  DGM< KTEMP) 

VITNR«VITNR+SA*DGM  <  KTEMP  > /FOX < KTEMP ) 

DO  440  IG-l.NTXG 

440  RGFK( IG)*RGFK< IG)+SA*RGF<  IG. KTEMP) 

GO  TO  450 

C  COMPUTE  THE  TOTAL  RATES  OF  RELEASE  AND  OXYGEN  CONSUMPTION  FOR  THIS 
C  FIRE  WHICH  INVOLVES  IGN  SRC  FUEL. 

445  DQK»DQK+SA*DQI 

RSFK»R  SFK *SA*R  S I 
VITNR»VITNRfSA*DQI/FOXI 
DO  447  IG-l.NTXG 

447  RGFK ( IG ) -RGFK ( IG ) +SA*RTGI ( IG) 

450  CONTINUE 
460  CONTINUE 

C  COMPUTE  THE  FLAME  ABSORPTION  COEFFICIENT,  ABSCF ,  FOR  THIS  FIRE  K  USING 
C  THE  CURRENT  RATE  OF  SMOKE  RELEASE.  UNITS  OF  ABSCF  ARE  1/FT.  SEE  APNDX 
C  D  OF  C23. 

ABSCF<K)-0  21*RSFK/ < SORT < FLML ( K > *GRAV > *AF < K > ) 

C  PROVIDE  A  DEFAULT  VALUE  OF  0.  25  1/FT  FOR  ABSCF 
IF ( ABSCF <K) .  LE.  0.  )  ABSCF<K>-0.  25 
RETURN 
END 
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subroutine  conoid 


c - 

C  OBJECTIVES) 

C  < 1 >  COMPUTE  FLAME  SPREAD  TO  ELEMENTS  ADJACENT  TO  BURNING  ELEMENTS  ON 
C  CABIN  LINING  SURFACE  SPECIFIED  BY  THE  VALUE  OF  THE  ARGUMENT  I. 

C  (2)  WHEN  THE  LINING  SURFACE  IS  A  SIDEWALL  NEXT  TO  A  SEAT  GROUP  FLAME 
C  SPREAD  IS  COMPUTED  FROM  THE  SIDEWALL  TO  THE  SEAT. 

C  COMMENTS 

C  (D  SIDEWALL  TO  SEAT  SPREAD  MECHANISM  IS  MODELED  VERY  APPROXIMATELY  BY 
C  COMPUTING  A  TIME  TO  SPREAD,  TIMWS,  FROM  THE  VALUES  OF  A  SPREAD 

C  VELOCITY,  RFWS.  AND  A  DISTANCE.  DWS,  GIVEN  IN  THE  INPUT.  THIS 

C  MODEL  SHOULD  BE  REPLACED  WHEN  A  BETTER  UNDERSTANDING  OF  THIS 

C  PROCESS  IS  OBTAINED. 

C  (2)  VALUES  OF  THE  VARIABLES  IVMN,  JVMN.  IVMX,  JVMX,  ISTART,  JSTART . 

C  I END,  JEND,  AND  THE  ARRAYS  RF,  DOM,  RSF,  RGF .  AND  ITFC  HAVE  JUST 

C  BEEN  SET  FOR  THE  CURRENT  FIRE  K  BY  SUBROUTINES  SCAN  AND  RATES 

C  ABOVE.  EACH  TIME  A  FIRE  IS  ISOLATED  THESE  VALUES  WILL  CHANGE  BASED 

C  ON  THE  FIRE  SIZE,  RADIATION.  AND  SURFACE  MATERIAL. 

C - 
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COMMON/CNTRL/DELTAT ,  DELTSP,  ECOFLG.  IDELT.  IDENT(20>,  IDTPRV,  IPEMS, 
IPSPR, IPAUX, IRATIO, ISAVE, ISCALE, ITFIN. I T I ME , ITIM2, 
ITSPRD, NP ASS,  TF INAL,  IDBUG1,  EPSLN,  MAX ITR,  MAXCUT, 

JC8SKP 

COMMON/F IRES/ AFM ( 7 ) ,  ASM<7>,  I STATE! 120.  19),  ISTATS<9.  16. 22), 
IWORD(120,  13),  I WORDS (9,  16. 22) , NFLM( 7) ,  NPYR ( 7 ) , 

RGS( 10, 7) . RSS<  7 ) , TOTGAS! 10) , TOTSEM. TRCF( 10), 

TRGS( 10) , TRSF, TRSS. NCE(30>.  VITNR,  TOTVIT,  RADFIR (30), 
ACM(7),  AF  <  30 ) ,  API, AEXP,  C0MB(30),  DQK,  FLML ! 30 ) , FSN1, 
FSN2.  FSN3, GAMMA (30).  IBURN,  IF(600>,  IGMNI.  IGMNJ.  IGMXI, 
IGMXJ. IGNFIR. IGNIJC2, 100), IGSN. ISFIREC30), IVMAX(30>, 
IVMIN<  30  I .  IVMN,  IVMX.  IXFIRE,  I  ZONE ( 30)  ,  JVMAX ( 30 ) , 

JVMIN  (  30  ) ,  JVMN,  JVMX,  K.  NFE(30),  NF  IRES.  NIJC.  NIJSQ. 

NPE ( 30 ) . NSFL  <  7 ) , OMEGA ( 30 ) ,  PDH.  PIGN.  RFC20.  4).  RFS<7.  4), 
RFWS. RGF< 10. 7), RCFK< 10),  RHOZ ( 30 > ,  RSF ( 7 > ,  RSFK.  TDO, 
TBURNI , UZ ( 30) , YZ ( 30 ) . ZB ( 30 ) ,  RHOEFG,  CHIEFG (11), 

FLOWIN. FLWOUT, TEFG. IFRVNT. GENRAT ( 1 1 ) ,  TDQMTL ( 7 > , 

TP  ( 7 ) ,  TPC  <  7 ) 

COMMON/GASES/CHILI  11.  3) , CNIU( 1 1. 3), CP, NGAS ( 11), NSPCS.  PAMB, PF(3), 
RHOAM,  RHOL(S),  RHOUO).  TAM,  TL !  3 ) ,  TU  ( 3 ) ,  VOLL  (  3) . 

VOLU ( 3 ) .  ZD ( 3 ) ,  XTHEN( 120). WMOLEC ( 1 1 >. TWO< 101 >- 
JCOR ( 120) 

COMMON/ GMTRY/  I MATL  (  20 )  ,  IMATS(7>,  IMTLP(4>.  IMAXOO),  IMINOO). 

IRAY< 116) .  IRAYSC  22 ) .  JMAX(30>,  JMIN(30), LSN-  MAXELI ,  NS. 
CH,  CL  (  4  ) ,  CW,  DWS.  HSTS,  IARX(40.  13).  IARY(40,  12),  ICLL. 
ICLR,  IEND.  IFIRL,  IFIRR,  ILSTL,  ILSTR,  I0NE!9), 

ISSWLI  ( 9,  10).  IS5WL  J(  9,  10),  ISSWRK9,  10).  ISSWRJ(9,  10), 
ISWSL( 13, 8) ,  ISWSR( 13,  3),  ISTART, NPROJ.  IPJUL,  IPJLL. 
IPJUR,  IPJLR.  JEND,  JONE  ( 9 ) ,  JSTART.  NJS.  NSC.  NV,  SCWD(9>, 
SL. SWD (20 ) . VN ( 20 , 3). VENTH<24>.  VENTWI24),  VENTT ( 24 ) . 

XMN ( 30 ) .  XMX ( 30 ) ,  XCOR ( 9 ) ,  YCOR ( 9 ) ,  Z ( 30 ) . SSQWD. TVSC. 

HT1. HT2, HT3, HT4< 10) . NSSTS.  SLSW,  SX ( 30 ) ,  SZ ( 30 ) , 

CNCTNS ( 24 ) , NCOMPS,  IFRCMP. FLOW( 24 ) ,  INTO( 24 > ,  VTOTAL ( 4 ) , 


2  FHMIN 

COMMON/MATLS/TABX ( 18. 7. 6). TABY ( 18, 7, 6) , NTXG. FOX  I , RADTAB ( 7 ) , RADI, 

1  FOX  <  7 ) ,  NMATLS,  DGI, DGM( 7 ) ,  GAMI, GTA8(7),  ITF(20),  IRAMPT, 

2  ITFC ! 20 ) . ITFCS17), ITFSI7), ITPI20), ITPC(20>, ITPCS(7), 

3  ITPE ( 20 ) ,  ITPES( 7  > .  ITPSI7), QCI, QP ( 7 > , QTAB ( 7 ) . RHOI, 

4  RH0M(7), RSI, RTAB(7). RTGI ( 10), UTAB < 7 ) , CNDCTY ( 7 ) , XMUI- 

3  XMF1,  TKNS  (7),  TSL<30,  2,  4),  TSP(2.  2,  4),  CPM(  7  > ,  WMMTL  ( 7 ) , 

6  WMIGF,  TKNS INI  7) 

COMMON/PARAMS/GRAV. P I , GTR. RGAS, SIGMA, SOD. THOU, TOL, EC. EP 
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COMMON/ SADTN/ Au?C.  ABSCF  ■'  20  ) ,  EB  ,  QC  i  2  > 

DIMENSION  ISDvA) 

C  II  AND  JJ  ARE  ELMNT  INDICES  TO  BE  USED  IN  THE  SEARCH  PROCEDURE 
C  INITIALIZE  THEM  USING  THE  MINIMUM  I  VALUE.  IVMIN.  AND  MINIMUM  J  VALUE. 
C  JVMIN,  FOR  THE  CURRENT  FIRE. 

II-IVMN-1 
J J-JVMN- 1 

C  ICON,  A  CONVERSION  FACTOR,  IS  COMPUTED  USING  THE  MINIMUM  AND  MAXIMUM 
C  I  INDEX  VALUES,  ISTART  AND  I END.  FOR  THE  CURRENT  SURFACE  (SURFACE  NUM- 
C  BER  I)  ISTART.  I  END,  JSTART,  AND  UEND  ARE  SET  IN  SUBR  FIRE  AND  WILL 
C  STAY  CONSTANT  AS  LONG  AS  THE  CURRENT  SURFACE  NUMBER,  I,  REMAINS  SO. 
ICON* I END- 1  START* 1 

C  STMT  10  IS  THE  START  OF  THE  MAIN  LOOP  OVER  THE  ELMNT  INDEX  II.  THIS 
C  LOOP  TERMINATES  AFTER  STMT  170. 

10  II-II+l 

C  USE  ARRAY  IRAY  TO  FIND  THE  SURFACE  NUMBER.  KK,  ON  WHICH  ELMNT  ROW  II 
C  IS  LOCATED  (NOT  NECESSARILY  SURFACE  I) 

KK*IRAY( I 1 ) 

C  STMT  20  IS  THE  MAIN  LOOP  OVER  ELMNT  INDEX  JJ,  ENDING  AFTER  STMT  170 
20  J J* J J* 1 

C  COMPUTE  THE  INDEX  OF  ARRAY  IF  WHICH  CORRESPONDS  TO  THE  ELMNT  II, JJ. 

I J*< I I-ISTART+1 >-t-ICON*(  JJ- JSTART) 

C  USE  ARRAY  IF  AND  SUBR  ISIDE  TO  FIND  IF  ELMNT  II, JJ  IS  PART  OF  AND  ON 
C  THE  EDGE  OF  A  FIRE. 

28  IF(IF(  IJ>.  LE.  1)  GO  TO  170 
CALL  ISIDE (IF(IJ). ISD) 

C  USE  SUBR  CHORD  TO  UNPACK.  THE  TIME-IN-STATE  CLOCK,  ITX,  FOR  ELMNT  II, JJ 
CALL  CWORD( IWORD< 1 1.  JJ) ,  ITX,  ITY) 

TXO-ITX 

C  L  WILL  BE  USED  AS  A  DIRECTION  INDICATOR 
L*1 

C  STMT  30  STARTS  A  LOOP  THRU  STMT  100  FOR  COMPUTING  THE  SPREAD,  IF  ANY, 

C  IN  EACH  OF  THE  FOUR  DIRECTIONS  AROUND  ELMNT  II, JJ.  TEST  FOR  A  ZERO 
C  VALUE  OF  THE  CURRENT  FLAME  SPREAD  RATE  (ON  THE  SURF  KK>  IN  THE 
C  DIRECTION  L.  L* 1  «>  DECREASING  J  DIRECTION.  L»2  ->  INCREASING  J 
C  DIRECTION,  L*3  ->  DECREASING  I,  AND  L«4  *>  INCREASING  I.  THE  SPREAD 
C  RATE  ARRAY  RF  HAS  BEEN  LOADED  WITH  THE  PROPER  RATE  VALUES  FOR  THIS 
C  SURFACE  AND  FIRE  IN  THE  LAST  PASS  THRU  SUBR  RATES. 

30  IF(RF(KK,  L).  LE.  0.  0)  GO  TO  100 

C  IF  ISD(L)  »  0  THE  ADJACENT  ELMNT  IN  THE  L  DIRECTION  IS  ALSO  FLAMING 
C  SO  SKIP  TO  STMT  100  TO  GO  ON  TO  A  NEW  DIRECTION. 

IF<ISD(L>.  EG.  0)  GO  TO  100 

C  COMPUTE  THE  TIME  TO  SPREAD  FROM  ONE  ELMNT  CENTER  TO  THE  NEXT  FOR  THE 
C  CURRENT  SPREAD  RATE. 

TIMSP»SQD/RF(KK,  L) 

C  IF  THE  TOTAL  TIME  THAT  THE  ELMNT  II.  JJ  HAS  BEEN  IN  THE  FLAMING  STATE 

C  IS  LESS  THAN  THE  TIME  TO  SPREAD  TO  THE  ADJACENT  ELMNT  NO  SPREAD  IN 

C  THIS  DIRECTION  CAN  OCCUR  THEREFORE  SKIP  TO  STMT  100  TO  LOOK  AT  A  NEW 
C  DIRECTION. 

IF(TXQ  LT. TIMSP)  GO  TO  100 

C  CONTROL  REACHES  THIS  POINT  WHEN  SPREAD  CAN  OCCUR.  BRANCH  ACCORDING  TO 
C  THE  CURRENT  DIRECTION 

GO  TO (40.  50,  60,  70).  L 

C  DECREASING  J  DIRECTION  TEST  FOR  J-l  *>  NO  SPREAD  CAN  OCCUR  OFF  OF  THE 

C  LEADING  EDGE  OF  THE  ELMNT  ARRAY.  IF  J  IS  NOT  *1  COMPUTE  INDICES  OF  THE 

C  ELMNT  TO  WHICH  FIRE  MAY  SPREAD. 

40  IF (  (JJ-1).  GE.  1)  GO  TO  45 

41  CONTINUE 

GO  TO  100 
45  IDXI-II 

IDXJ-JJ-1 
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GO  TO  30 

C  INCREASING  J  DIRECTION.  TEST  FOR  SPREAD  OFF  THE  TRAILING  EDGE  OF  THE 
C  ARRAY.  COMPUTE  THE  INDICES  OF  THE  ELMNT  TO  WHICH  FIRE  MAY  SPREAD 
30  IF(  (  JJ+1  )  .  GT  JMAX(KK))  GO  TO  41 
IDXI-I I 
IDXJ-JJ+1 
GO  TO  80 

C  DECREASING  I  DIRECTION.  TEST  FOR  SPREAD  OFF  THE  LEFT  (LOW  I)  EDGE  OF 
C  SURFACE  1.  IF  SO  THE  I  INDEX  OF  THE  ADJACENT  ELMNT  WILL  BE  THE  HIGHEST 
C  I  ON  THE  LEFT  SIDEWALL.  COMPUTE  INDICES  TO  WHICH  FIRE  MAY  SPREAD. 

60  IF((II-1).  GE.  1)  GO  TO  62 

IDXl-MAXELI 
GO  TO  63 

62  IDXI-II-1 

63  IDXJ*JJ 
GO  TO  80 

C  INCREASING  I  DIRECTION.  TEST  FOR  SPREAD  OFF  THE  HIGH  I  EDGE  OF  THE 
C  LEFT  SIDEWALL  AND  THUS  TO  THE  1*1  ROW  ON  THE  FLOOR 
C  COMPUTE  THE  ELMNT  INDICES  TO  WHICH  FIRE  MAY  SPREAD. 

70  IF( (11*1).  LE.  MAXELI >  GO  TO  72 
10X1*1 
GO  TO  63 
72  IDXI-II+1 
GO  TO  63 

C  USE  IRAY  TO  DETERMINE  WHICH  SURFACE  ON  WHICH  THE  “CANDIDATE"  ELMNT 
C  LIES.  THEN  UNPACK  THE  DATA  ON  THIS  ELMNT  WITH  CWORD  AND  CVOUT 
80  KV»IRAY< IDXI ) 

82  CALL  CWORD< 1 WORD ( IDX I >  IDXJ). ITX, ITY) 

CALL  CVOUT ( IDX I . IDXJ.  KV. 1ST, ISTP. ITFCP) 

C  BASED  ON  THE  CURRENT  STATE.  1ST,  OF  THE  CANDIDATE  ELEMENT,  EITHER 
C  SET  IT  TO  FLAMING  (STATE  3)  AT  STMT  83  OR  TAKE  NO  ACTION  BY  SKIPPING 
C  TO  STMT  100.  NO  ACTION  IS  TAKEN  IF  THE  CANDIDATE  ELEMENT  IS  CURRENTLY 
C  IN  STATES  3,  4.  OR  7. 

GO  TO  (83.  83.  100.  100.  83.  33.  100).  1ST 
C  THE  CANDIDATE  ELMNT  IS  IGNITED.  INCREASE  THE  HEAT.  SMOKE,  AND  GAS 
C  RELEASE  RATES  AND  THE  OXYGEN  CONSUMPTION  RATE.  IF  THE  ELMNT  WAS  IN 
C  STATE  2  DECREASE  THE  COUNT  OF  SMOLDERING  ELMNTS  BY  ONE. 

83  IFdST.  EG.  2)  NPE(KV)-NPE(KV>-1 
KTEMP* I MATL ( KV  > 

DGK-DQKi-GTR*DQM  ( KTEMP ) 

RSFK»RSFK+QTR*RSF ( KTEMP > 

TOQMTL ( KTEMP )  -  TDGMTL ( KTEMP >  ♦  GTR  *  DGM( KTEMP) 

V I TNR*V I TNR+QTR*DGM ( KTEMP ) /FOX ( KTEMP ) 

DO  83  IG-l.NTXG 

83  RGFK( IG)*RGFK< IG ) ♦GTR#RCF< IG. KTEMP) 

C  SET  THE  "FRACTION  CONSUMED"  CLOCK,  ITFCP,  USING  THE  SPREAD  CALCULATION 
C  INTERVAL,  DELTSP.  AND  THE  TIME-TO-BURN-OUT.  XTFC.  THIS  SETTING  IS 
C  THE  FRACTION  CONSUMED  BY  THE  END  OF  THIS  PASS. 

XTFC-ITFC(KV) 

IF  ( XTFC.  LE.  0.  )  GO  TO  100 
KTEMP* <  DELTSP / XTFC ) *THOU 
ITFCP* ITFCP+KTEMP 

C  SET  THE  STATE  TO  3.  THE  TIME-IN-STATE  TO  ZERO  MILLISECONDS.  AND  UP  THE 
C  COUNT  OF  FLAMING  ELMNTS  BY  ONE 
90  IST*3 
ITX*0 

NFE  ( K  V )  *NFE  <  KV )  *1 

C  REPACK  IWORD  AND  ISTATE  WITH  THE  NEW  CONDITION  OF  ELMNT  IDXI,  IDXJ 
ISG-l 

IF <  ITY  LT  0)  ISO— 1 

I  WORD  (  IDXI.  IDXJ!*ITY»10000MSG*ITX 
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ISTATE ( IDXI.  :DXJ,»ITFC?*1C0*ISTP*Iu»I5T 
IF  ALL  DIRECTIONS  AWAY  FRGM  ELMNT  II,  nAVE  SEEN  EXAMINED  SKIP  TO 

120  FOR  SEAT  IGNITION  DETERMINATION  IF  NOT,  PICK  NEXT  DIRECTION 
AND  RETURN  TO  TOP  OF  LOOP  AT  STMT  30, 

100  IF < L.  EG,  4)  GO  TO  110 
109  L-L*l 

GO  TO  30 

C  THE  REMAINING  PART  OF  THIS  SUBROUTINE  CALCULATES  THE  SPREAD  TO  CABIN 
C  SEATS  THRU  THEIR  IGNITION  3Y  BURNING  SIDEWALL  ELMNTS  THIS  IS  DONE 
C  ONLY  IF  THE  CURRENT  SURFACE  I  IS  A  SIDEWALL  SURFACE. 

no  ltemp»kk 

C  IF  THE  INPUT  RATE  OF  SIDEUALL-TO-SEAT  SPREAD  IS  ZERO  SKIP  TO  END 
IF ( RFWS.  LE  0.  )  GO  TO  170 

C  TEST  IF  THE  CURRENT  SURFACE  IS  A  SIDEWALL  AND  DETERMINE  IF  IT  IS  A 
C  RIGHT  SIDEWALL  <  GO  TO  130)  OR  A  LEFT  SIDEWALL  (GO  TO  120)  IF  NEITHER 
C  SKIP  TO  END 

IF(I.GT.  1  AND.  I.LT  I CLR  )  GO  TO  130 
IFCI.GT,  ICLL  AND  I  LE.  LSN ) GO  TO  120 
GO  TO  170 

C  LEFT  SIDEWALL.  USE  ARRAY  ISWSL  TO  FIND  IF  THE  CURRENT  SIDEWALL  ELMNT 
C  II.  JJ  CAN  IGNITE  A  NEARBY  SEAT  A  NON-ZERO  UALUE  OF  ISWSLCJJ, 1)  GIVES 
C  THE  SEAT  GROUP  NUMBER  AND  THE  SPECIFIC  SEAT  GROUP  ELMNT  THAT  MAY  BE 
C  IGNITED  IS  GIVEN  BY  ISWSL(JJ,  KK)  WHERE  KK  IS  FOUND  FROM  II. 

120  KK»ILSTL-II*2 

IF  (KK  GT  8  .OR  KK.  LT.  1  >GQ  TO  170 
I TEMP- ISWSLIJJ.  KK) 

IF < I TEMP  EQ-  0 ) GO  TO  170 
IS-ISWSL( JJ. 1 ) 

IP-1 

GO  TO  140 

C  RIGHT  sidewall,  use  array  iswsr  to  find  if  THE  CURRENT  SIDEWALL  ELMNT 
C  II.  JJ  CAN  IGNITE  A  NEARBY  SEAT.  PROCEDURE  IS  SAME  AS  FOR  RT  SIDEWALL 
130  KK— 2*1 I-IFIRR 

IF(KK.  GT  8  OR  KK.  LT  1)G0  TO  170 
I TEMP— I SWSR  <  J J. KK) 

IF ( I TEMP  EQ.  0)G0  TO  170 
IS-ISWSR< JJ. 1 ) 

IP-2.  0*SGWD< IS ) *TOL 

C  SEAT  GROUP  AND  ELMNT  TO  BE  IGNITED  HAVE  BEEN  FOUND.  PROCEED  AS  ABOVE 
C  TO  COMPUTE  TIME  TO  SPREAD  AND  COMPARE  THAT  VALUE  TO  THE  TIME  THAT 
C  ELMNT  II.  JJ  HAS  BEEN  IN  THE  FLAMING  STATE. 

140  JP-ITEMP 

ICRIT-LSN+IS 

IF1RFWS  LE  0  0)G0  TO  165 

TIHWS— DWS/RFWS 

IFCTXO  LT  TIMWS)  GO  TO  165 

C  IF  CONTROL  PEACHES  THIS  POINT  THE  SEAT  GROUP  ELMNT  WHICH  IS  A 
C  CANDIDATE  FOR  IGNITION  WILL  NOW  HAVE  ITS  STATE  DATA  UNPACKED  IF 

C  THIS  SEAT  ELMNT  IS  NOT  ALREADY  IN  STATES  3.  4,  OR  7  IT  IS  IGNITED 
C  AND  ALL  THE  PROPER  VARIABLES  ARE  UPDATED  AS  WAS  DONE  ABOVE 
CALL  CWORD  < IWGRDSl IS,  IP.  JP ) ,  ITX,  ITY ) 

CALL  CVOUT  ( IP,  JP,  ICR  IT ,  1ST,  ISTP,  ITFCP) 

IF (  1ST  EQ.  3.  OR  1ST  EQ  4  OR  1ST.  EQ.  7)  GO  TO  165 
KJ-IRAYS( JP) 

IF  (  I  ST  EQ.  2)  NPE  (  ICR  I T )  — NPE  (  I CR  IT )  - 1 
K  TEMP - I MATS ( K  J ) 

DQK»DQK*QTR*DQM<KTEMP ) 

TDGMTL ( KTEMP )  -  TDGMTL ( KTEMP >  *  GTR  *  DGM< KTEMP) 

RSFK»RSFK*QTR*RSF ( KTEMP ) 

VITNR-VITNR*QTR*DQM<KTEMP ) /FOX (KTEMP ) 

DO  150  IG-t.NTXC 
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150 


RGFX  !  IG  =RGFK  (  IG  )  *QTF’»PGF  i  IG,  KTEMP  ) 

XTFC»I7FCS<KJ> 

IF ( XTFC  LE.  0  >  GO  TO  165 
KTEMP- < DELTSP/ XTFC  > *THQU 
I TFCP- I TFCP+KTEMP 

C  REPACK  IWORDS  AND  ISTATS  WITH  THE  NEW  CONDITION  OF  THIS  SEAT  ELMNT 
160  I ST-3 
ITX-0 

NFE ( ICR  I T ) — NFE ( ICRITl+l 
ISC— 1 


165 
170 
C  END 


IF < ITY  LT 
IWORDS ( IS 
ISTATS  < IS 
CONTINUE 
KK-LTEMP 

OF  THE  LOOP  OVER 
IF<  JJ.  LT  JVliX  )  GO 


0)  ISC--1 

IP, JP )— ITY* 10000+ ISC* I TX 
IP, JP ) »ITFCP*1 00+ ISTP* 1 0+ 1  S’ 


JJ 

TO 


J J- JVMN- 1 

C  END  OF  THE  LOOP  OVER  II 

I P  t  II.  LT,  IVMX)  GO  TO  10 

RETURN 

END 
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SUBROUTINE  fccn<i> 


c  - 

C  OBJECTIVE 

C  (1)  THIS  SUBROUTINE  COMPUTES  THE  EXPOSURE  AND  IGNITION  OF  ELMNTS 
C  THRU  THE  CONTACT  BY  FLAMES  OF  FIRES  BURNING  ON  NON-ADJACENT 

C  SURFACES  SPECIFICALLY  THE  FOLLOWING  SITUATIONS  ARE  CONSIDERED  - 

C 

C  (A)  FLAMES  FROM  A  FIRE  ON  THE  CABIN  FLOOR  TOUCH  AND  IGNITE  A 

C  SEAT  GROUP 

C  (B>  FLAMES  FROM  A  FIRE  ON  THE  CABIN  FLOOR  TOUCH  AND  IGNITE  ELMNTS 

C  ON  THE  CEILING. 

C  (C)  FLAMES  FROM  A  FIRE  ON  THE  SIDEWALL  TOUCH  AND  IGNITE  OTHER 

C  WALL  ELMNTS.  HATRACK  ELMN i a .  OR  CEILING  ELMNTS. 

C 

C  COMMENTS 

C  (1)  STATEMENT  NUMBERING  IN  THIS  SUBROUTINE  IS  NOT  SEQUENTIAL 
C  (2)  TERMINOLOGY  AN  ELMNT  OF  A  FIRE  BASE  WHOSE  FLAMES  MAY  CONTACT 
C  SOME  OTHER  ELMNT  IS  CALLED  A  "SHOOTING  ELMNT" 

C  THE  ELMNT  WHICH  MAY  BE  IGNITED  BY  THE  FLAME  CONTACT 

C  IS  CALLED  THE  "TARGET  ELMNT  “ 

C  (3)  FLAME  CONTACT  FROM  FIRES  ON  THE  SIDEWALLS  IS  LIMITED  TO  SHOOTING 
C  ELMNTS  WITHIN  TWO  ROWS  (I  INDICES)  OF  THE  CEILING/STOW-BIN/PSU 

C  SURFACES 


1 

2 

3 

1 

2 

3 

4 

5 

6 

7 

8 
9 
1 
2 

3 

4 

1 

2 
3 

X 

2 

3 

4 

5 

6 

7 

8 
9 
1 
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COMMON/CNTRL/DELT AT , DELTSP. ECOFLG.  IDELT,  IDENT(20).  IDTPRV.  IPEMS, 
IPSPR.  IPAUX.  IRATIQ,  ISAVE,  ISCALE,  ITFIN.  I T I  ME .  ITIM2. 
ITSPRD.  NP  ASS.  TF  INAL.  IDBUG1,  EPSLN,  MAX  ITR,  MAXCUT, 

JCBSKP 

COMMON/F IRES/ AFM ( 7 ) . ASM<7).  ISTATEt 120,  IS),  ISTATS<9,  16, 22), 

I  WORD  <  120,  13),  I  WORDS  (  9.  16,  22),  NFLM  ( 7 ) ,  NPYR(7>, 

RGS  < 10,  7), RSS  <  7  >  .  TOTGAS ( 10).  TOTSEM. TRGF ( 10), 

TRCS< 10).  TRSF.  TRSS. NCE(30>,  VITNR,  TOTVIT, RADFIR ( 30) . 
ACM <  7 ) , AF ( 30 ) . AFI , AEXP, COMB (30) , DGK. FLML ( 30 > ,  FSN1 , 
FSN2,  FSN3.  GAMMA  <  30 ) .  I  BURN.  IF(600),  ICMNI,  IGMNJ,  IGMXI, 
IGMXJ,  IGNFIR,  IGNI J  (  2,  100),  IGSN,  ISFIRE(30>.  IVMAXOO). 
IVMIN<30>.  IVMN.  I VMX,  IXFIRE,  I  ZONE ( 30 ) ,  JVMAX ( 30) , 

JVM  I N  ( 30  ) ,  JVMNi  JVMX,  K,  NFE  (  30 ) ,  NFIRES.  NIJC.  NIJSQ. 

NPE  C30 ) .  NSFL  ( 7 ) ,  OMEGA  (  30 ) ,  PDH.  PIGN,  RF(20,  4).  RF5C7.  4), 
RFWS.  RGF  < 10. 7), RGFKC 10),  RHOZ  <  30 ) , RSF ( 7)  ,  RSFK,  TDQ. 
TBURNI , UZ ( 30) .  YZ ( 30 ) ,  ZB ( 30 ) , RHOEFG, CHIEFC( 11 ), 

FLOWIN, FLWOUT, TEFG.  IFRVNT,  GENRAT ( 1 1 ), TDQMTL ( 7 ) , 

TP (7), TPC(7) 

COMMON/GASES/CHtL( 11,3). CHIV< 1 1,  3) , CP, NCAS< 11). NSPCS. PAMB.  PF ( 3 ) , 
RHOAM.  RH0LI3).  RHOUO).  TAM,  TL(3>.  TU(3),  VOLLO). 

VOUJO) .  ZD(  3) .  XTHENC  120) ,  WMOLEC  (  11  ) ,  TWO(  101 ) . 

JCOR  < 1 20  > 

C0MMON/GMTRY/IMATL(20).  I MATS ( 7 ) ,  IMTLP(4>,  IMAX(30),  IMIN(30), 

IRAY  < 116),  IRAYS ( 22 ) . JMAX (30) , JMIN(30) . LSN. MAXELI .  NS. 
CH.  CL  ( 4  ) ,  CW,  DWS.  HSTS,  IARX(40,  13),  IARY<40.  12),  ICLL. 
ICLfl- I END, IFIRL, IFIRR. ILSTL. ILSTR, I0NE(9>. 

ISSWLK9,  10).  ISSWL  J  (  9,  10),  I SSWR I  (  9,  10),  ISSWRJ(9,  10), 
ISWSL  (  13.  8)  ,  ISWSR  (  13,  9),  1ST  ART,  NPROJ.  IPJUL,  IPJLL, 
IPJUR.  IPJLR,  J  END.  J0NE(9),  JSTART ,  NJS,  NSG,  NV.  SGWD  (  9  > , 
SL. SWD ( 20 > . VN(20,  3), VENTH(24), VENTW(24>.  VENTT ( 24 ) , 

XMN ( 30 ) .  XMX ( 30 ) , X  C  DR ( 9 ) . YC0R(9),  Z(30),  SSGWD. TVSG, 

HT1 ,  HT2,  HT3,  HT4  (  10).  NSSTS,  SLSW,  SX  ( 30 ) ,  SZ  (  30 ) , 

CNCTNS ( 24 ) ,  NCOMPS,  IFRCMP, FL0W(24>,  INT0(24>, VT0TAL(4>, 
FHM1N 

COMMQN/MATLS/TABX  <  18,  7,  6),  TABY  ( 18,  7,  6),  NTXG,  FOX  I,  RADTAB  (7 ) ,  RADI, 


1  FOX (7), NMATLS, DO  I . DQM  <  7 ) ,  GAMI,  GTAB (7) ,  ITF<20).  IRAMPT. 

2  ITFC ( 20 ) .  ITFCS ( 7 ) ,  ITFS(7),  ITP(20).  ITPC(20>,  ITPCS<7>, 
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3  I TPE  (  20  1  ITP£S(7) ,  I  TPS:  7) ,  QCI.  QP(7>,  QTAB  (  7.' .  RHOI. 

4  RH0M(7).  rSIi  RTAB ( 7  > ,  RTS  I < 10 ) ,  UTA8 ' 7 > ,  CNDCTv;7)  ,  XMUI. 

3  XMFI,  TKNS<7>,  TSL  <  30.  2,  4>,  TSP'2.  2.  4),  CPM(7).  WMMTL  (  7 > , 

6  wmigf, tkns:n<7) 

COMMQN/PARAMS/GRAV,  P I - GTR, RGAS, SIGMA, SOD.  THOU. TOL, EC. EP 
COMMON/RADTN/ALPC, ABSCF(30) . EB. QC (2> 

C  I COUNT  IS  A  FLAC  TO  CONTROL  SELECTION  OF  SIDEWALL  SHOOT I NO  ELMNTS 
C  ICNTR  IS  A  FLAO  SIGNALING  REQUIREMENT  FOR  ADDITIONAL  SEARCHING 
C  I HR 2  IS  A  FLAG  INDICATING  THE  ORIENTATION  OF  SURF  I, 

C  IHRZ  -  0  ->  VERTICAL,  IHRZ  «  1  •>  HORIZONTAL. 

I COUNT- I 
ICNTR— 0 
IHRZ— O 

C  FHGT  -  DISPLACEMENT  OF  FIRE  3ASE  FROM  FLOOR  *  FLAME  LENGTH 
FHGT-ZB ( K ) +FLML ( K ) 

C  ICON  IS  THE  CONVERSION  FACTOR  FOR  USE  WITH  ARRAY  IF 
ICON- I END- I START* 1 

C  STMTS  10  AND  20  START  A  PAIR  OF  NESTED  LOOPS  OVER  THE  ELMNTS  WITHIN 
C  THE  REGION  DEFINED  BY  IVMN.  JVMN.  IVMX.  AND  JVMX.  THIS  IS  THE  REGION 
C  CONTAINING  THE  MOST  RECENTLY  ISOLATED  FIRE  BASE  FROM  SU8R  FIRE  ABOVE. 
C  THE  LOOPS  END  JUST  AFTER  STMT  300. 


I I-IVMN-1 

10 

11-11*1 

JJ— JVMN— 1 

20 

J J- J J+ 1 

0  COMPUTE  THE  SINGLE  INDEX,  IJ,  OF  ARRAY  IF  THAT  CORRESPONDS  TO  THE 
C  ELMNT  II,  JO.  THE  VALUE  OF  IF<U>  WILL  TELL  IF  THIS  ELMNT  IS  FLAMING 
C  AND  THUS  IS  A  SHOOTING  ELEMENT. 

IJ»< II-ISTART+1 ) ♦ICON* ( JJ— JSTART  > 

C  FIRST  CONSIDER  ONLY  FIRES  ORIGINATING  ON  THE  CABIN  FLOOR  (SURF  1),  IF 
C  THE  SURFACE  I  (IN  THE  SUBR  CALL)  IS  NOT  THE  FLOOR  SKIP  TO  STMT  40  TO 
C  CONSIDER  CASE  C  OF  OBJECTIVE  (1). 

IF <  I.  GT  1  ) GO  TO  40 

C  FLAMES  FROM  THE  FLOOR  MAY  CONTACT  SEATS,  HATRACK,  OR  CEILING/PSU/STOW 
C  BINS. 

C  FIRST  TEST  TO  FIND  IF  FLAME  LENGTH  IS  ENOUGH  TO  CONTACT  SEATS. 

IF ( FHGT  LT  Z  <  LSN+1 > )G0  TO  500 

C  IF  ELMNT  II,  JJ  IS  NOT  FLAMING  SKIP  TO  THE  END  OF  THE  LOOP  TO  GO  ON  TO 
C  ANOTHER  ELMNT. 

IFdF(IJ).  LT.  1  >G0  TO  300 

C  TEST  TO  FIND  IF  A  SEAT  GROUP  IS  ABOVE  THIS  ELMNT. 

IS-IARX( II,  JJ) 

C  IF  THERE  IS  NOT  A  SEAT  GROUP  ABOVE,  SKIP  TO  STMT  23  TO  CHECK  CEILING. 
IF(  IS.  EQ.  0)GO  TO  23 

C  WHEN  CONTROL  REACHES  THE  NEXT  STMT  A  SEAT  IS  ABOVE  AND  WILL  BE  IN 
C  CONTACT  WITH  THE  FLAMES.  SELECT  THE  INDICES  OF  THE  SEAT  SURFACE 
C  (CUSHION  BOTTOM)  ELMNT  USING  ARRAYS  IONE  AND  JONE. 

ICRIT-LSN+IS 
IP- 1 1 -IONE (IS) 

JP- J J- JONE (IS) 

C  USE  CVOUT  TO  DETERMINE  THE  STATE  OF  ELMNT  IP,  JP. 

CALL  CVOUT( IP. JP,  ICR  IT.  1ST,  ISTP,  ITFCP) 

C  IF  THIS  ELMNT  HAS  JUST  BEEN  SET  TO  A  NEW  STATE,  SKIP  ANY  OTHER  STATE 
C  CHANCES. 

IF < 1ST  NE.  ISTP  >GQ  TO  300 

C  USE  CWORD  TO  UNPACK  THE  CLOCKS  AND  FLAGS  FOR  THE  TARGET  ELMNT  IP,  JP 
C  SELECT  THE  CURRENTLY  APPLICABLE  TIME-TO-IGNITE,  ITFCS. 

CALL  CWORD< IWORDS( IS.  IP. JP ) ,  ITX.  ITY) 

KTEMP- IMATS  < 1 ) 

XTFC- ITFCS ( 1 ) 

IF  (  XTFC.  LE.  0.  )  GO  TO  300 


.LL, 


A  - 1  26 


ITXX«ITFS( 1 ) 

C  SKIP  ANY  CHANGES  TO  THE  TARGET  ELMNT 'S  STATE  IF  IT  IS  FLAMING.  CHARRED 
C  OR  COOLING. 

200  GO  T0(238,  265,  300,  300.  260,  263.  300),  1ST 
C  IF  THE  TARGET  ELMNT  IS  IN  STATE  1  OR  STATE  5  SET  IT  TO  STATE  6  - 
C  HEATING  IN  CONTACT  WITH  FLAMES. 

258  ITX-0 
260  I  ST-6 

GO  TO  290 

265  IF( 1ST  EG. 2)00  TO  270 

C  FOR  TARGET  EL.MNTS  IN  STATE  6,  TEST  THEIR  TIME-IN-STATE.  ITX  VS.  THE 
C  CURRENT  TIME-TO-IGNITE.  IF  IGNITION  OCCURS  RESET  ITX  AND  SKIP  TO  280 
C  TO  COMPLETE  THE  STATE  CHANGE 
IF < ITX  LT.  ITXX ) GO  TO  300 
ITX-ITX-ITXX 
GO  TO  280 
270  CONTINUE 

C  FOR  TARGET  ELMNT S  IN  STATE  2,  IGNITE  THEM  IN  ALL  CASES. 

ITX-0 

NPE( ICR  IT ) — NPE ( ICR  IT )  —  1 

C  ICNITION.  COMPUTE  ADDITIONS  TO  SMOKE,  HEAT,  AND  GAS  GENERATION  AND 
C  OXYGEN  CONSUMPTION  RATES. 

280  I ST-3 

DGK-DGK+QTR*DGM  ( KTEMP ) 

RSFK— RSFK+GTR  *RSF <  KTEMP ) 

TDQMTL ( KTEMP )  -  TDGMTL (KTEMP >  +  GTR  *  DQM( KTEMP) 

V I TNR— V I TNR+QTR*DGM < KTEMP )  /FOX  (KTEMP  ) 

DO  283  IG-l.NTXC 

282  RCFK < IG ) — RCFK ( IG ) *GTR*RGF < IG,  KTEMP ) 

C  COMPUTE  THE  NEW  VALUE  FOR  THE  FRACTION  CONSUMED.  ITFCP,  AND  REPACK 
C  THE  STATE  DATA  IN  THE  APPROPRIATE  ARRAYS. 

ITEMP-(DELTSP/XTFC)*THOU 
ITFCP- ITFCP* I TEMP 
NFE ( ICR  IT) -NFE ( ICR  IT )  + 1 
290  ISG-1 

IF ( ITY.  LT.  0 )  ise—  1 
IT1-ITY*10000+ISG*ITX 
I T2- ITFCP* 1 00* I STP* l 0+ I ST 
IF<  ICRl-T.  GT.  LSNIGO  TO  295 
I WORD (IP.JPJ— IT1 
1 STATE! IP. JP1-IT2 
GO  TO  300 

295  IWORDSC IS. IP, JPJ-ITl 
I  STATS  ( IS.  IP,  UP  )  -  IT2 

C  CHECK  THE  FLAG  ICNTR  TO  FIND  IF  MORE  SIDEWALL-TO-CEILING  CHECKING  IS 
C  TO  BE  DONE. 

300  IF( ICNTR. NE. 0)G0  TO  310 
C  CLOSE  OF  THE  LOOPS  OVER  II  AND  JJ. 

IF( JJ.  LT  JVMXJGO  TO  20 
IF ( 1 1 . LT  IVMX ) GO  TO  10 
GO  TO  500 

C  THE  REMAINING  PART  OF  THIS  SUBR  CONSIDERS  FLAMES  FROM  UPPER  SIDEWALLS 
C  AND  HATRACH  REACHING  THE  CEILING  AND  FLAMES  FROM  THE  FLOOR  REACHING 
C  THE  HATRACK  OR  CEILING. 

C  THE  NEXT  4  STMTS  INCREMENT  THE  J  INDICES  OF  THE  SHOOTING  AND  TARGET 
C  ELMNTS  WHEN  THE  SURFACE  OF  ORIGIN  IS  NOT  THE  FLOOR. 

310  IF (  IHR Z.  EG.  1  ) GO  TO  340 
IF(JJ.  GS.  JVMX  )  GO  TO  320 
JJ-JJ+2 
JP-JJ 
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THE  NEXT  a  STMTS  INCREMENT  THE  I  INDICES  OF  THE  SHOOTING  AND  TARGET 
ELMNT3  WHEN  THE  SURFACE  OF  ORIGIN  IS  NOT  THE  FLOOR 
ICOUNT  ALLOWS  ONLY  NEAR-CEILING  SHOOTING  ELMNTS  TO  3E  USED 
320  IF ( ICOUNT, EQ.  Z ) GO  TO  500 
ICOUNT-2 
JJ-JVMN 
IT-L+INCR 
IP»IARY< IT.  NN) 

GO  TO  30 

C  CONTROL  REACHES  340  IF  THE  SURF  OF  ORIGIN  IS  HORIZONTAL,  SO  A  LARGER 
C  RANGE  OF  II  VALUES  CAN  BE  CONSIDERED  AS  SHOOTING  ELMNTS. 

340  IF  <  JJ.  LT  JVMX ) GO  TO  330 
JJ=JVMN-1 

IFUI.GE.  IVMXJGO  TO  300 

11*11+1 

IT-L+INCR 

IP«IARY< IT. NN) 

C  SELECT  THE  SHOOTING  ELMNT  J  INDEX  AND  TEST  FOR  THE  SHOOTING  ELMNT 
C  BEING  IN  STATE  3, 

330  JJ*UJ+1 

IJ*( II-ISTART+1 >+ICON*< JJ-JSTART) 

IF< IF< IJ>.  EQ.  0)G0  TO  300 
CO  TO  30 

C  CHECK  FOR  TARGET  ELMNT  BEING  ON  UNDERSIDE  OF  HATRACK 
23  IF(  IARY<  II,  10).  EQ.  0)G0  TO  33 
IP-IARYCII,  10) 

C  SELECT  TARGET  ELMNT  J  INDEX  AND  SURFACE  NUMBER,  ICRIT.  TEST  TO  SEE 
C  IF  FLAMES  CAN  REACH  SURFACE  ICRIT. 

30  JP-JJ 

ICR  IT* I RAY ( IP  > 

IFIFHGT  LT.  Z< ICRIT) )G0  TO  300 

C  UNPACK  TARGET  ELMNT  STATE.  PREVIOUS  STATE,  FRACTION  CONSUMED,  AND 
C  TIME-IN-STATE  CLOCK. 

CALL  CVOUTIIP, JP, ICRIT, 1ST, ISTP, ITFCP) 

IF  <  1ST.  NE.  1 STP  )  GO  TO  300 

CALL  CHORD ( I WORD! IP,  UP ) .  ITX,  ITY ) 

KTEMP-IMATLC ICRIT) 

XTFC-ITFCt ICRIT) 

IF  ( XTFC.  LE.  O.  )  GO  TO  300 

C  i TXX  IS  THE  CURRENT  T I ME-TO- IGNITE  FOR  THE  TARGET  ELMNT  MATERIAL. 
ITXX-ITF( ICRIT)  ' 

GO  TO  200 

C  TARGET  ELMNT  IS  A  CEILING  OR  OTHER  OVERHEAD  SURFACE  ELMNT 
33  IP-IARY< II, 12) 

GO  TO  30 

C  STMT  40  AND  STMT  80  FORCE  SELECTION  OF  ONLY  SHOOTING  ELMNTS  ON  THE 
C  UPPER  SIDEWALLS  OR  HATRACKS. 

40  IFU.LE.  ICLL ) GO  TO  80 
C  SHOOTING  ELMNT  IS  ON  THE  LEFT  SIDE  OF  THE  CABIN 
ICNTR— I 

I F ( VN (  I,  3)  NE.  1.  0)00  TO  43 

IHRZ-1 

IX-IMAX  < 1 ) 

C  THE  LOOP  THRU  42  SELECTS  THE  TARGET  ELMNT  I  INDEX,  IP,  AND  CHECKS  TO 
C  SEE  THAT  THE  SHOOTING  ELMNT  IS  FLAMING.  ORIGIN  SURFACE  IS  A  HATRACK 
C  UPPER  SURFACE. 

DO  42  LL*1.  IX 

IF  (  I AR  Y  (  LL,  11).  NE.  1 1  )  GO  TO  42 

L-LL 

INCR-1 

NN*  1 2 
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IP-IARYCL.  NNI 
IFUFUU)  LT  1)G0  TO  300 
80  TO  30 

42  CONTINUE 

C  CONTROL  REACHES  THIS  ERROR  MESSAOE  ONLY  IF  NO  PROPER  TARGET  ELMNT  CAN 
C  BE  FOUND  ON  THE  CEILING. 

WRITE (6. 43) 

43  FORMAT! /10X.  20HN0  CORRESP  SURF,  LEFT) 

494  STOP 

43  IF(VN(  I,  3)  .ME.  0.  >60  TO  300 
C  ORIGIN  SURFACE  IS  VERTICAL.  TEST  FOR  PRESENCE  OF  A  HATRACK. 

IF ( NPRQU  EG.  1 >60  TO  63 
C  NO  HATRACK.  TARGET  ELMNT  IS  ON  CEILING 
50  L«1 

60  I NCR-1 
NN-12 

IP—  IARY  ( L.  NN  ) 

GO  TO  30 

C  TEST  FOR  ORIGIN  SURFACE  BEING  ABOVE  HATRACK  (I  LESS  THAN  IPJUL)  OR 
C  BELOW  HATRACK  (  I  GREATER  THAN  IPULL). 

63  IFU.LT.  IPJUDGO  TO  SO 
70  IFU.GT.  IPJLDGO  TO  73 

C  SET  UP  SEARCH  LIMITS  FOR  SHOOTING  ELMNT  ON  UPPER  HATRACK  SURFACE. 
IX-IMAXU) 

DO  72  LL-1.  IX 

IF  ( IARY  (LL.  11).  NE.  0)GQ  TO  72 
L-LL 

GO  TO  60 

72  CONTINUE 

C  CONTROL  REACHES  THIS  ERROR  MESSAGE  ONLY  IF  NO  PROPER  TARGET  ELMNT  CAN 
C  BE  FOUND  ON  THE  CEILING. 

WRITE<6, 73) 

73  FORMAT (/ 10X. 16HN0  LEFT  VERTICAL) 

GO  TO  999 

C  SURFACE  OF  ORIGIN  IS  BELOW  HATRACK.  TARGET  ELMNT S  ON  LWR  HATRACK  SURF 
73  L— 1 

INCR-1 
NN— 10 

IP— IARY(L. NN) 

GO  TO  30 

C  TEST  FOR  SURFACE  OF  ORIGIN  BEING  ON  RIGHT  SIDE  OF  CABIN. 

80  IFU.  GE.  ICLR1G0  TO  300 
C  SHOOTING  ELMNT  IS  ON  THE  RIGHT  SIDE  OF  THE  CABIN. 

ICNTR-1 

IF(VN<  I,  3)  NE.  1.  0>G0  TO  83 
C  SURFACE  OF  ORIGIN  IS  HORIZONTAL 
IHRZ-1 
IX-IMAXU  ) 

KJ-IX+1 

C  the  LOOP  THRU  STMT  82  SELECTS  THE  TARGET  ELMNT  I  INDEX  ON  THE  CEILING 
DO  82  LL-1.  IX 
KU-KJ-1 

IF <  IARY  < KJ,  1 1 ) .  NE.  II  >G0  TO  82 

L-KU 

INCR-1 

NN-12 

IP— I ARY<L.  NN) 

IF<  IFUJ).  EG.  0)C0  TO  300 
GO  TO  30 
82  CONTINUE 

C  CONTROL  REACHES  THIS  ERROR  MESSACE  IF  NO  CEILING  TARGET  ELMNT  CAN 
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C  BE  POUND. 

WRITE (6,  S3) 

33  FORMAT </10X. I9HN0  CORRESP  SURF, ROT) 

<50  TO  999 

C  FOR  VERTICAL  SURFACES  OF  ORIGIN  TEST  FOR  PRESENCE  OF  A  HATRACK 
85  IF< VN<  1 ,  3) .  NE.  0.  >G0  TO  SOO 
IF<NPROV.  EQ.  1)«0  TO  93 

C  NO  HATRACK  -  SELECT  TARGET  ELMNT  ON  CEILING. 

IX»IMAX(I ) 

38  L»IX 
90  INCR— 1 

NN»12 

IP»IARV  <  L,  NN) 

GO  TO  30 

C  DETERMINE  IF  SURFACE  OF  ORIGIN  IS  ABOVE  OR  BELOW  THE  HATRACK 
99  IFd.GT  IPUURJGO  TO  38 

97  IF ( I.  LT  IPJLR )6Q  TO  99 

C  SET  UP  SEARCH  LIMITS  FOR  SHOOTING  ELMNTS  ON  UPPER  HATRACK  SURFACE. 
IX-IMAXC 1 ) 

KJ-IX+1 
DO  98  LL-1. IX 
KJ*»K U-t 

IF  <  I  ARY  ( K  J.  II).  NE-  0  >  GO  TO  98 

L*KU 

CO  TO  90 

98  CONTINUE 

C  CONTROL  REACHES  THIS  ERROR  MESSAGE  ONLY  IF  NO  PROPER  TARGET  ELMNT  CAN 
C  SE  FOUND  ON  THE  CEILING. 

WRITE ( 6«  981 ) 

981  FORMAT  < / IQX, 24HN0  CORRESP  VERT  SURF , RGT  > 

GO  TO  999 

C  SURFACE  OF  ORIGIN  IS  BELOW  HATRACK.  TARGET  ELMNTS  ON  LWR  HATRACK  SURF 

99  L-IMAX(l) 

INCR--1 

NN-10 

IP-IARY<L. NN) 

GO  TO  30 
900  RETURN 
END 
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SUBROUTINE  ?VOL(I) 


c 


c 


OBJECTIVE 

(1)  THIS  SUBROUTINE  COMPUTES  THE  INITIATION  OF  NEW  SMOLDERING 

REGIONS  BY  EXPOSURE  OF  ELMNTS  TO  THE  RADIATION  FROM  THE  FLAMES  OF 
A  FIRE  THIS  PROCESS  IS  MODELED  BY  (A)  COMPUTING  A  "SMOLDERING 
RANGE- "  PDH-  WHICH  IS  THE  DISTANCE  AWAY  FROM  THE  CYLINDRICAL 
FLAME  VOLUME  AT  WHICH  THE  RADIATION  HAS  FALLEN  TO  A  VALUE  OF  GPi 
<8>  TESTING  TO  SEE  IF  ELMNTS  WITHIN  THE  DISTANCE  PDH  FROM  THE 
FLAMES  HAVE  HAD  A  SUFFICIENTLY  LONG  EXPOSURE  TO  BEGIN  SMOLDERING 
THE  "SMOLDERING  THRESHOLD"  LEVEL  GP  AND  RANGE  PDH  ARE  COMPUTED  IN 
SUBR  FIRE  FROM  DATA  SUPPLIED  FOR  EACH  MATERIAL  TYPE  AND  THE 
CURRENT  LEVELS  OF  RADIATION  FROM  THE  UPPER  GAS  ZONE. 

ONLY  FIRES  ORIGINATING  ON  THE  CABIN  FLOOR  OR  ON  THE  UPPER  HAT- 
RACK  SURFACES  ARE  CONSIDERED  BY  THIS  SUBROUTINE  SUBROUTINE  PVOLS 
WORKS  WITH  FIRES  ORIGINATING  ON  ANY  SEAT  GROUP. 

COMMENTS 

(1)  TERMINOLOGY:  ELMNTS  ON  THE  FIRE  BASE  WHICH  SERVE  TO  LOCATE  THE 
RADIATING  FLAME  VOLUME  ARE  CALLED  "SHOOTING  ELMNTS. "  ELMNTS 
BEING  EXAMINED  BY  THIS  SUBR  AS  CANDIDATES  FOR  THE  TRANSITION  TO 
SMOLDERING  ARE  CALLED  "TARGET  ELMNTS.  “ 
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COMMON/CNTRL/DELTAT - DELTSP. ECOFLG. IDELT, IDENT(20>, IDTPRV- IPEMS. 

IPSPR.  IPAUX,  IRATIO, ISAVE-  ISCALE-  ITFIN.  ITIME-  ITIM2- 
ITSPRD. NP ASS.  TFINAL.  IDBUG1. EPSLN.  MAXITR.  MAXCUT, 

JCBSKP 

C0MM0N/FIRES/*FM<7).  ASM<7>,  ISTATE(120-  IS).  ISTATS<9,  16.  22). 

I WORD ( 120.  13).  I WORDS (9.  16. 22), NFLM(7>. NPYR(7>. 

RGS< 10, 7) . RSS< 7 ) , TOTGAS( 10) ,  TOTSEM,  TRGF ( 10) , 

TRGS(IO), TRSF. TRSS. NCE(30>.  VITNR,  TOTVIT,  RADFIR < 30 ) , 
ACM ( 7 ) ,  AF ( 30  > ,  AFI , AEXP, C0MB(30). DQK. FLML ( 30  > , FSN1, 
FSN2,  FSN3,  GAMMA  ( 30 ) .  IBURN.  IF(600>,  IGMNI,  ICMNJ.  ICMXI, 
IGMXJ.  IGNFIR,  IGNI  J(2,  100).  IGSN,  ISFIRE ( 30 > ,  IVMAXOO), 

I VM IN ( 30 ) ,  IVMN,  I VMX.  IXFIRE,  IZ0NE(30), JVMAX(30>. 

JVM  I N  (  30 ) .  JVMN.  JVMX,  K.  NFE  (  30 ) .  NFIRES.  NIJC.  NIJSQ. 
NPE(30).  NSFU7).  OMEGA (30),  PDH,  PIGN,  RF(20.  4),  RFS<7,  4), 
RFWS,  RGF (  10.  7),  RGFKC 10).  RHOZOO).  RSF<7).  RSFK.  TDQ, 
TBURNI.  UZ (30) , YZ ( 30) . ZB ( 30 ) , RHOEFG. CHIEFG (11), 

FLOWIN,  FLWOUT. TEFG,  IFRVNT, GENRATt 11 >. TDQMTLC7). 

TP ( 7 ) .  TPC <  7 ) 

COMMON/GASES/CHIL ( 1 1,  3), CHIU( 11.  3), CP. NGAS (11), NSPCS.  PAMB. PFC3), 
RHOAM. RHOL ( 3  > , RHOU ( 3  > ,  TAM,  TL ( 3 ) .  TU ( 3 ) ,  VOLL ( 3 ) , 
VOLU(S).  ZD( 3).  XTHEN < 120). WMOLEC ( 11 ),  TWO< 101 ). 

JCOR ( 120) 

CQMMON/GMTRY/  IMATL  (  20  ) .  I  MATS  ( 7 ) .  IMTLP(4>,  IMAXOO),  IMIN(30>, 

IRAY< 116) ,  I RAYS ( 22 ) ,  JMAX (30), JMIN(30>,  LSN,  MAXELI,  NS. 
CH,  CL  ( 4  ) ,  CW,  DWS,  HSTS,  IARXC40,  13),  I  ARY  (40,  12),  ICLL, 
ICLR. I END, IFIRL. IFIRR. ILSTL. ILSTR, I0NE(9), 

ISSWLK9,  10),  ISSWLJ(9,  10).  ISSWRI  (9,  10).  ISSWRJ(9,  10), 

I SWSL (  13.  S) ,  ISWSR  (  13,  S) ,  ISTART,  NPROJ,  IPJUL.  IPJLL, 
IPJUR,  IPJLR,  JEND,  JONE  (  9  ) ,  JSTART ,  NJS.  NSG.  NV,  SGWD<9), 
SL,  SWD <  20 ) , VN ( 20,  3  > .  VENTH ( 24 ) , VENTW ( 24 ) ,  VENTT  <  24 ) , 
XMN(30),  XMX  ( 30 ) ,  XC0R<9>,  YC0R<9),  ZOO),  SSCWD,  TVSG, 

HT1,  HT2.  HT3,  HT4  (  10),  NSSTS.  SLSW,  3X00).  SZOO). 

CNCTNS ( 24 ) ,  NCOMPS.  IFRCMP,  FL0W(24>,  INT0(24), VT0TAL(4), 
FHMIN 

C  OMMON  /  MATLS/TABX(  18,  7.  6).  TABY  <  18,  7,  6).  NTXG,  FOXI,  RADTAB  ( 7 ) .  RADI, 

F0X<7>.  NMATUS.  DQX,  DOM  <  7  >  ,  QAMI.  CTAB < 7 > .  ITPOO).  IRAMPT. 


2  ITFC (20 ) , ITFCS ( 7) , ITFS(7), ITP(20), ITPC(20), ITPCS(7>, 

3  ITPE( 20) ,  ITPES ( 7 ) ,  ITPS(7),  QCI. QP(7>, QTAB ( 7  > , RHOI. 

4  RHOM ( 7 ) ,  RSI,  RTAB ( 7) , RTGI (10), UTAB ( 7 ) , CNDCTY(7),  XMUI. 
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5  XMFI,  TKNSC7),  TSL<30,  2,  4),  TSP  <  2-  2.  4),  CPM<7),  WMMTL<7>. 

6  WMIGF, TKN3IN<7) 

COMMON/PARAMS/GRAV.  PI,  GTR,  RGAS,  SIGMA,  SQD,  THOU-  TOL,  EC,  EP 
COMMON /RADTN/ALPC.  ABSCF<30>,  EB,  QC ( 2 ) 

DIMENSION  ISD<4) 

C  SKIP  ALL  SURFACES  OF  ORIGIN  EXCEPT  THE  FLOOR  AND  THE  UPPER  HATRACK. 

IF<  I.  EG.  1  >GO  TO  2 

IF <  I.  EG.  IPJUL  OR.  I.  EG.  IPJUR)GO  TO  2 
CO  TO  500 

C  FHGT  »  FIRE  BASE  DISPLACEMENT  *  FLAME  LENGTH  FOR  THE  CURRENT  FIRE. 

C  ICON  IS  A  CONVERSION  FACTOR  USED  WITH  THE  ARRAY  IF 
2  FHGT-ZB<K>+FLML(K) 

ICON* I END— I ST ART-*  1 

C  STMTS  10  AND  20  ARE  THE  BEGINNING  OF  LOOPS  OVER  THE  I  AND  J  INDICES  OF 
C  THE  SHOOTING  ELMNTS  ON  THE  BASE  OF  THE  CURRENT  FIRE. 

II-IVMN-1 
10  II-II+l 

J J- JVMN- 1 
KK-IRAY< II ) 

20  J J- J J+ 1 

C  USE  THE  ARRAY  IF  TO  DETERMINE  WHETHER  ELMNT  II,  JJ  IS  FLAMING  AND,  IF 
C  SO,  IF  IT  IS  ON  THE  PERIMETER  OF  A  FIRE  BASE.  SET  THE  FLAG  IRET 
C  ACCORDINGLY 

I  J-  <  1 1  - 1  START-*  1 )  *  ICON#  <  JJ-JSTART ) 

IFdF(IJ)-l)  300,26,27 

C  SHOOTING  ELMNT  AFLAME,  NOT  ON  PERIMETER  ->  IRET  -  2. 

26  IRET-2 
GO  TO  2S 

C  SHOOTING  ELMNT  AFLAME,  ON  PERIMETER  ->  IRET  -  I. 

27  IRET-1 

C  SELECT  CANDIDATE  TARGET  ELMNT  INDICES  IP  AND  JP 

28  IP- 1 1 
JP-JJ 

GO  TO  180 

C  USE  SUBR  ISIDE  TO  DETERMINE  WHICH  SIDE(S)  OF  THE  SHOOTING  ELMNT  II,  _'J 
C  HAS  A  NON-FLAMING  NEIOHBOR. 

30  CALL  I S I DE  < I F  < I J  > ,  I SD ) 

C  CHECK  TO  SEE  WHETHER  THE  SMOLDERING  RANGE  COVERS  A  LEAST  ONE  ELMNT 
C  DIMENSION.  IF  NOT  SKIP  TO  300  TO  CONSIDER  OTHER  SHOOTING  ELMNTS. 

NSQH— PDH/SGD 

IF < NSGH.  LT.  1)  GO  TO  300 

C  SET  UP  A  LOOP  ON  L  TO  CONSIDER  THE  FOUR  POSSIBLE  DIRECTIONS  AWAY  FROM 
C  THE  SHOOTING  ELMNT. 

NSG-0 
40  L-0 

90  L-L+l 

IF<  ISD<L)  EG.  I )  GO  TO  70 
60  IF <L.  EG.  4)  GO  TO  300 
NSQ-0 
GO  TO  90 

C  NSQ  COUNTS  THE  NUMBER  OF  ELMNTS  TO  STEP  OUT  FROM  THE  EDGE  OF  THE  BASE 
70  NSQ— NSG* 1 

C  BASED  ON  THE  DIRECTION  INDICATED  BY  L  SELECT  TARGET  ELMNT 'S  I  AND  J 
C  INDICES.  CHECK  IN  EACH  CASE  AGAINST  JUMPING  OFF  A  SURFACE  EDGE. 

C  IRET  -  3  INDICATES  A  NEED  TO  CONTINUE  STEPPING  OUT  FROM  THE  FIRE 
C  PERIMETER  TO  CHECK  ADDITIONAL  TARQET  ELMNTS. 

GO  TO  (SO,  90.  100.  110).  L 
C 

80  IP-tl 

JP-JJ-NSO 

IF(JP  LT  1)  GO  TO  60 
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IRET-3 
SO  TO  122 
90  IP-II 

JP-JJ+NSQ 

IF<JP  ST. JEND)  GO  TO  60 
SO  TO  89 
100  IP-II-NSQ 
JP-JJ 

IFUP.  LT.  IMIN(KK)  )  CO  TO  60 
60  TO  89 

no  ip-ii+nsg 
jp-jj 

IFUP.  GT.  I  MAX  ( KK )  )  GO  TO  60 
GO  TO  89 

C  UNPACK  THE  DATA  ON  THE  TARGET  ELMNT  AND  TEST  FOR  EQUALITY  OF  THE 
C  PRESENT  STATE  AND  THE  PREVIOUS  STATE.  THEY  MUST  BE  EQUAL  FOR  A 
C  CHANCE  OF  STATE  TO  BE  ALLOWED 

122  CALL  CVOUTt IP,  JP, KK,  1ST,  ISTP,  ITFCP) 

IF <  1ST.  NE.  ISTP  )  CO  TO  160 

123  CALL  CWORD< IWORD< IP, JP).  ITX,  ITY) 

C  SELECT  THE  STATE  TRANSITION:  TARGET  ELMNTS  IN  STATES  3.  4  OR  7  ARE 
C  IGNORED)  STATE  l  ->  STATE  9)  STATE  9  ->  STATE  2  IF  THEIR  TIME  IN  STATE 
C  9  HAS  EXCEEDED  THE  CURRENTLY  APPLICABLE  TIME— TO-START— SMOLDER  INC 
C  ELMNTS  ALREADY  IN  STATE  2  REMAIN  THERE. 

GO  T0<  124,  130.  160.  160.  130,  129.  160).  1ST 

124  ITX-0 

129  IST-9 

GO  TO  140 

130  IF < 1ST. EQ.  2)  GOTO  139 

IF < ITX.  LT  I TP ( KK ) )  GO  TO  139 
I  ST-2 

XTPC-ITPC(KK) 

IF  ( XTPC.  LE.  0.  )  GO  TO  160 
I TEMP- <  DELTSP / XTPC ) *THOU 
ITFCP-ITFCP+ITEMP 
ITX— ITX— ITP  <  KK ) 

NPE ( KK ) — NPE ( KK )  + 1 

139  ITY— 1 

140  ISO-1 

C  REPACK  STATE  DATA  FOR  THIS  TARGET  ELMNT. 

IFUTY.  LT.  0)  ISO— 1 
I WORD < IP. JP)«ITY*10000+ISG*ITX 
I STATE! IP. JP )— ITFCP* 100* ISTP* 10+ I ST 
160  CONTINUE 

C  THE  REMAINING  PART  OF  THIS  SUBROUTINE  CONSIDERS  SMOLDERING  INDUCED  ON 
C  SURFACES  ABOVE  THE  FLAME  VOLUME.  SEE  SECTION  4  2.3  OF  Cl  I 
C  SKIP  TO  189  IF  THE  FIRE  IS  ON  THE  FLOOR. 

180  IF(  I.  EQ.  1  ) GO  TO  189 

C  THE  LOUP  THRU  182  SEARCHES  FUR "TARGET  ELMNTS  ON  THE  CEILING  FOR  FIRES 
C  ORIGINATING  ON  THE  UPPER  HATRACK  SURFACES  (IF  APPLICABLE). 

IX-IMAX! 1) 

DO  182  LL-1. IX 

IFUP.  NE.  I  ARY  <LL,  11)  >G0  TO  182 
M-LL 

IPP— IARY  <M,  12) 

GO  TO  192 

182  CONTINUE 

C  CONTROL  REACHES  THIS  ERROR  MESSAGE  ONLY  IF  NO  TARGET  ELMNTS  ARE  FOUND 
C  ON  THE  CEILING. 

WRITE  <  6.  183) 

183  FORMAT < /9X, 26HPV0L — HR  SURFACE  NOT  FOUND) 
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STOP 

C  FIRE  IS  ON  THE  CABIN  FLOOR  -  TEST  FOR  SEATS  ABOVE  THE  SHOOT  I NO  ELMNT 

189  IS-IARXt IP, JP> 

IF(  IS.  EQ.  0)00  TO  190 

C  A  SEAT  IS  ABOVE  THE  SHOOTINO  ELMNT,  COMPUTE  THE  RADIATION  LEVEL  TO 
C  WHICH  THE  TARGET  ELMNT  IS  EXPOSED. 

ICRIT-LSN+IS 
ZZ-Z< ICRITl-FHGT 
XTEM«<ZZ*ZZ/<YZCK)*YZ<K> ) >*4.  0 

QCS-6. 52* < 1. -< (XTEM-3.  )/SQRT( (9. ♦XTEM ) * ( 1 . ♦XTEM) ) > ) 

I NT* I MATS ( 1 ) 

C  IF  THE  EXPOSURE  LEVEL  IS  LESS  THAN  THE  THRESHOLD  LEVEL,  OP,  END 
C  CONSIDERATION  OF  THIS  ELMNT 

IF1QCS.  LE.  OP  (  IMT )  )  00  TO  250 

C  SELECT  THE  INDICES  OF  THE  TARGET  SEAT  ELMNT,  UNPACK  ITS  STATE  DATA. 

C  CHECK  FOR  EQUALITY  OF  PAST  AND  PRESENT  STATE. 

IPP-IP-IONE! IS) 

JPP-JP-JONE ( IS ) 

CALL  CVOUTC IPP, JPP, ICRIT, 1ST, ISTP, ITFCP) 

IF<  1ST.  NE.  ISTP ) 00  TO  250 

CALL  CHORD < IWORDSt IS,  IPP, JPP ) ,  ITX,  ITY ) 

C  CHECK  THE  FRACTION  CONSUMED  FOR  THE  TARGET  ELMNT,  AND  SKIP  TO  210  FOR 
C  APPROPRIATE  STATE  TRANSITION. 

KTEMP<<IMATS< 1 ) 

XTPC<<ITPCS< 1 ) 

IF1XTPC.  LE.  0.  )  00  TO  250 
ITXX-ITPS(l) 

GO  TO  210 

C  FIRE  IS  ON  THE  FLOOR  BUT  NO  SEATS  ARE  ABOVE  THE  SHOOTING  ELMNT 
C  DETERMINE  IF  THE  TARGET  ELMNT  IS  ON  A  HATRACK  LOWER  SURFACE  OR  ON  THE 
C  CEILING 

190  IPP-IARY! II,  10) 

IF < IPP  EQ. 0) IPP-IARY< IP, 12) 

192  JPP-JP 

ICRIT*IRAY( IPP) 

Z  Z«  Z< ICRIT) — FHOT 
XTEM-(ZZ*ZZ/<YZ(K)*YZ(K) ) )*4.  0 

C  USE  EQ  4-6  OF  Cl  I  TO  COMPUTE  THE  RADIATIDN  FLUX  AT  THE  TARGET 
QCS“6.  52* < 1 .  -< (XTEM-3  )/SQRT< (9.  *XTEM)*< 1.  +XTEM) ) ) )♦ 

1  .  00138* <2.  25*TL< I FRCMP ) -TAM ) 

KTENP* I MATL  < ICRIT) 

C  IF  THE  EXPOSURE  LEVEL  IS  LESS  THAN  THE  THRESHOLD  LEVEL  END 
C  CONSIDERATION  OF  THIS  ELMNT. 

IF <QCS.  LE. QP (KTEMP ) >00  TO  250 

C  UNPACK  THE  TARGET  ELMNT  STATE  DATA,  CHECK  THE  PRESENT  AND  PAST  STATES. 
C  AND  THE  FRACTION  CONSUMED. 

CALL  CVQUT ( IPP,  JPP,  ICRIT.  1ST,  ISTP,  ITFCP) 

IF(IST  NE.  ISTP  >Q0  TO  250 

CALL  CHORD! IWORD< IPP, JPP),  ITX,  ITY) 

XTPC<<ITPC<  ICRIT) 

IF ( XTPC.  LE.  0.  )  GO  TO  250 
ITXX-ITP' ICRIT) 

C  SELECT  STATE  TRANSITION:  ELMNTS  IN  STATES  3,  4  AND  7  ARE  IGNORED, 

C  STATE  1  ->  STATE  5;  STATE  5  ->  STATE  2  IF  THEIR  TIME  IN  STATE  5  HAS 
C  EXCEEDED  THE  CURRENTLY  APPLICABLE  TIME-TO-START-SMOLDERINO  ELMNTS 
C  CURRENTLY  IN  STATE  2  REMAIN  THERE. 

210  GO  T0<21 1, 215.  250.  250.  215.  212.  250).  1ST 

211  ITX-0 

212  IST-5 

GO  TO  230 

215  IF< 1ST  EQ. 2)  GO  TO  220 
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IFUTX  LT  ITXX)'iO  TO  220 

IST-2 

JTEMP ■ <  DEL  TSP / x  TPC ) *TH0U 

I TFCP- I TFCP+ JTEMP 

ITX-ITX-ITXX 

NPE( ICR  IT ) *NPE <ICRIT)*l 

C  REPACK  THE  NEW  STATE  DATA  FOR  THE  TARGET  ELMNT  IN  THE  LINING  SURFACES 
C  OR  SEAT  SURFACES  ARRAYS  AS  APPROPRIATE. 

220  ITV— 1 
230  isc-t 

IF< ITY  LT  0>  ISG--1 
m-iTY*ioooot-ise#iTx 
IT2«ITFCP*100+ISTP*10*IST 
IF( ICRIT. GT  LSN1G0  TO  233 
I WORD ( IPP. JPPl-ITl 
ISTATEt IPP. JPP )"IT2 
CO  TO  230 

233  IUORDS( IS. IPP, JPPi-ITl 
I STATS < IS,  IPP. JPP1-IT2 
230  IF( IRET-2)30, 300. 260 

C  THIS  TEST  CHECKS  TO  FIND  IF  ALL  ELMNTS  WITHIN  THE  SMOLDERING  RANGE 
C  HAVE  BEEN  EXAMINED. 

260  IF(NSQ. LT. NSGHIGO  TO  70 
GO  TO  60 

C  END  OF  THE  LOOPS  OVER  THE  SHOOTINC  ELMNTS. 

300  IF(JJ  LT  JVMXJGO  TO  20 
IF(II. LT. I VMX ) GO  TO  10 
500  RETURN 
END 
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SUBROUTINE  CONDS< I > 


OBJECTIVE 

Cl)  subroutine  conds  computes  the  spread  of  fire  over  the  surfaces  of 

THE  SEAT  GROUP  SPECIFIED  BY  THE  VALUE  OF  I  IN  THE  SUBROUTINE  CALL. 
THE  SUBROUTINE  ALSO  COMPUTES  THE  SPREAD  OF  FIRE  TO  SIDEWALLS  NEAR 
THE  EDGE  OF  A  SEAT  CROUP  AND  TO  SEAT  GROUPS  FORWARD  AND  AFT  OF 
THE  SPECIFIED  SEAT  CROUP 


COMMON/CNTRL/DELTAT. DELTSP. ECOFLC.  IDELT,  IDENTC20),  IDTPRV,  IPEMS. 

1  IPSPR.  IPAUX,  IRATIO,  ISAVE,  ISCALE,  ITFIN.  ITIME.  ITIM2, 

2  I TSPRDi  NP ASS.  TFINAL,  IDBUG1.  EP3LN,  MAXITR.  MAXCUT. 

3  JCBSKP 

COMMON/FIRES/AFMC7),  A3MC7),  ISTATEC 120.  15),  ISTATSC9.  16,  22). 

1  I  WORD  C  1  20,  15).  I  WORDS  t  9,  16,  22).  NFLMC7),  NPYRC7), 

2  RCSC 10,  7), RSSC7).  TOTCASf  2  0),  TOTSEM, TRCFC 10), 

3  TRGSC 10) . TRSF . TRSS. NCEC30) .  VITNR,  TQTVIT.  RADFIR (30) . 

4  ACM  <  7  ) ,  AFC  30).  AFI,  AEXP,  COMB  (30),  DQK.  FLML  (  30  ) ,  FSN1, 

5  FSN2,  FSN3, GAMMA (30),  I  BURN,  IFC600).  IGMNI,  IGMNJ.  IGMXI. 

6  ICMXJ,  IGNFIR,  ICNIJC2,  100).  IGSN,  ISFIREOO).  I VMAX  (  30 ) , 

7  I VMIN  (  30  ) .  I VMN,  IVMX,  IXFIRE.  I  ZONE  (30),  JVMAXOO), 

3  JVM  IN  (  30  )  .  JVMN.  JVMX,  K,  NFEC30)  .  NF  IRES.  NIJC.  NIJSQ. 

9  NPE  <  30 ) , NSFLC7) , QMECA(30). PDH, PICN, RF(20.  4), RFS<7, 4). 

1  RFWS.  RGF<  10,  7),  RCFK(  10).  RHOZOO).  RSF(7) .  RSFK,  TDQ. 

2  TBURNI . UZ (30). YZ(30). ZB (30) ,  RHOEFC.  CHIEFG ( 11), 

3  FLOWIN,  FLWOUT,  TEFC.  IFRVNT ,  CENRAT ( 1 1 ), TDQMTL ( 7 ) , 

4  TP  (  7  ) ,  TPC  (  7  ) 

COMMON/GASES/CHILC 11,5).  CH1UI 11,  5) . CP. NCAS ( 11), NSPCS. PAMB, PF ( 5 ) , 

1  RHOAM, RHOL<  5). RHOU( 5) . TAM,  TL ( 5 ) , TU ( 5 ) . VOLL ( 5 ) , 

2  VOLU(S) , ZD<  5),  XTHEN( 120) ,  WMOLSC (11),  TWO( 101 ) . 

3  JCOR ( 120 ) 

COMMON/ GMTRY/ IMATL  <  20 ) .  I MATS ( 7  > ,  IMTLP ( 4 ) ,  I MAX ( 30 ) .  IMINC30), 

1  IRAYC 116) ,  IRAYSC22),  JMAX (30) , JMlN ( 30 ) , LSN,  MAXELI,  NS. 

2  CH.  CL  ( 4 ) .  CW.  DWS.  HSTS,  IARX140,  15),  IARY(40.  12),  ICLL. 

3  ICLR,  TENO,  IFIRL,  IFIRR,  ILSTL.  ILSTR,  IONEC9), 

4  ISSWLI  (9,  10).  1S5ULJ  (  9,  10).  ISSWRI  (9,  10),  ISSWR  J  ( 9.  10), 

5  ISUSLC IS.  8),  ISWSRC  15,  8).  1ST  ART,  NPROJ.  IPJUL.  IPJLL. 

6  IPJUR.  IPJLR,  JEND,  JONL  ■  Q ) .  JSTART,  NJS,  NSC.  NV,  SGWD(9>, 

7  SL.  SWD (  20  )  •  VN (  20,  3).  VENT- '2*i>,  VENTW (  24  > ,  VENTT  (  24  ) , 

8  XMN  (  30 ) ,  XMX  ( 30  )  ,  XCOR  (  9  •  .  <CCR(?>,  ZOO).  SSCWD,  TVSC. 

9  HT1,  HT2-  HT3,  HT4<  10).  NSSTS.  3.-5W.  SX(30>,  SZ(30>. 

1  CNCTNS  <  24 ) , NCOMPS,  IFRCMP, FLC*(24>,  INT0C24), VTOTAL ( 4 ‘ 

2  FHMIN 

COMMON/MATLS/TABX(  IS.  7.  6) .  TABY  (  18,  7,  6),  NTXG.  FO*  I,  nACTAB ( 7) .  RADI, 

1  FOX (7). NMATLS, DO  I , DOM ( 7 ) ,  CAM I,  GTAB l 7 ) .  IT (20) ,  IRAMPT, 

2  ITFC  (  20  ) ,  ITFCSC7).  ITFS(7),  ITP(20).  I  TPC  .20,  I TPCS  <  7  )  , 

3  ITPEC20).  I TPES  (  7  ) ,  ITPS(7) ,  QCI,  OP  (  7  !  ,  GT  A3  ■’  7  )  ,  RHOI, 

4  RHOM ( 7 ) . RSI, RTAB ( 7 ) , RTCI ( 10) . UTABC7) , CNDC ' ' ' 7) ,  XMUI, 

5  XMFI,  TKNS  (  7) ,  TSL  !  30.  2-  4),  TSP(2,  2-  4),  CPMC7).  WMMTL  ( 7 ) , 

6  UM IGF , TXNS IN ( 7 ) 

COMMON/PARAMS/CRAV.  PI.  QTR,  RGAS.  SIGMA.  SOD.  THOU.  TOL,  EC.  E° 
COMMON/RADTN/ALPC,  ABSCF ( 30 ) ,  EB,  GC < 2 ) 

DIMENSION  ISD ( 4 ) 

C  COMPUTE  THE  SEAT  GROUP  NUMBER  FROM  THE  VALUE  OF  I.  COnPUTC  'HE 
C  CONSTANT  ICON  USED  WITH  THE  ARRAY  IF 
IS- I -LSN 

I CON- I END- I STAR T+l 

C  STMTS  10  AND  20  START  LOOFS  OVER  SEAT  G90UP  ELMNTS  II.  JJ  WHICH  ARE 
C  THE  ORIGIN  ELEMENTS  FOR  THE  FLAME  SPREAD. 

I  I* I VMN— 1 
JJ— JVMN- 1 
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JJmJJ* 1 
KK-IRAYS! JJ) 

20  11-11*1 

IJ-! 1 1  *  1ST ART * 1 ) * I CON*  <  JJ- JSTART ) 

C  IF  THE  ARRAY  IF  FOR  THIS  ELMNT  CONTAINS  A  VALUE  OF  ZERO.  THE  ELMNT  IS 
C  NOT  FLAMING 

IF< IF< IJ)  EG. 0)00  TO  190 

C  USE  SUBR  ISIDE  TO  DETERMINE  THE  OPEN  SIDES  (IF  ANY)  OF  THE  ORIGINATING 
C  ELEMENT,  AND  SUBR  CHORD  TO  UNPACK  THE  ELMNT  STATE  DATA. 

29  CALL  ISIDEt IF( IJ). ISO) 

CALL  CHORD! IWCRDSf IS.  1 1. JJ),  ITX.  ITY ) 

TXO-ITX 

C  IF  IF  HAS  THE  VALUE  1.  THE  ELMNT  II.  JJ  IS  AN  INTERIOR  ELMNT  (HAS  NO 
C  SIDES  ON  THE  FIRE  PERIMETER)  SO  SKIP  TO  120  FOR  SIDEHALL  OR  SEAT 
C  SPREAD  TESTS 

IF< IF( IJ)  EG.  1 )G0  TO  120 

KX-KK 

L»1 

C  STMT  30  IS  THE  START  OF  A  LOOP  TO  EXAMINE  EACH  OF  THE  4  POSSIBLE 
C  SPREADING  DIRECTIONS  (GIVEN  BY  THE  VALUE  OF  L).  THE  VALUE  OF  ISD(L) 

C  OF  ZERO  INDICATES  HHETHER  A  GIVEN  SIDE  IN  THE  DIRECTION  L  IS  OPEN. 

C  RFS  IS  THE  CURRENT  SPREAD  RATE  FOR  SEAT  MATERIALS. 

30  IF <RFS<  KK,  L) .  LE.  0.  0)  GO  TO  110 
IF ( ISD(L) . LE. 0 >  GO  TO  110 

C  COMPUTE  THE  TIME  TO  SPREAD  AND  COMPARE  IT  TO  THE  CURRENT  TIME-IN-STATE 
C  FOR  THE  ORIGIN  ELMNT. 

TIMSP«SGD/RFS<KK. L) 

IF!TXO.  LT.  TIMSP)  GO  TO  110 

C  IF  SPREAD  SHOULD  OCCUR  SELECT  THE  APPROPRIATE  DIRECTION  AND  COMPUTE 
C  THE  INDICES,  IDXI  AND  IDXJ,  OF  THE  ELMNT  WHICH  IS  A  CANDIDATE  FOR 
C  IGNITION. 

GO  TO!  40.  90.  60.  70),  L 
40  IF(  <  JJ-1  >  .  LT.  I )  GO  TO  4S 
IDXJ-JJ-1 
GO  TO  47 

49  IDXJ-JMAX(I) 

47  IDXI-II 

48  KV- I RAYS! IDXJ) 

GO  TO  82 

90  IF  < ( JJ*1 ) .  GT.  JMAX ( I ) )  GO  TO  99 

IDXJ-JJ+1 
GO  TO  47 
99  IDXJ-1 

GO  TO  47 

60  IF<  II.  EG.  1  >00  TO  1 10 
IDXI-II-1 
67  IDXJ-JJ 
GO  TO  48 

70  IF(  1 1.  EG.  I  MAX  (  I )  )  GO  TO  110 
IDXI-I 1  +  1 
GO  TO  67 

C  UNPACK  THE  STATE  DATA  FOR  THE  CANDIDATE  ELMNT. 

82  CALL  CVOUT < IDXI,  IDXJ.  I.  1ST,  ISTP.  ITFCP) 

CALL  CHORD! IWORDS! IS, IDXI, IDXJ). ITX, ITY) 

C  ELMNT S  IN  STATES  1,2,9,  AND  6  ARE  IGNITED.  THOSE  IN  STATES  3-4  AND  7 
C  ARE  SKIPPED. 

GO  TO  (83,  83.  110,  110.  83,  83,  110).  1ST 
C  UPDATE  THE  RATES  OF  HEAT.  SMOKE.  AND  GAS  RELEASE  AND  OXYCEN 
C  CONSUMPTION  TO  REFLECT  THE  NEW  IGNITION.  COMPUTE  THE  NEW  VALUE  OF 
C  FRACTION  CONSUMED,  ITFCP,  AND  SET  THE  TIME-IN-STATE  CLOCK,  ITX-  TO 
C  ZERO. 
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I F < I ST  EQ. 2 )  NPE(I)«NPS(I)-1 
KTEMP-IMATS(KV) 

DQK-DQK+QTR-DQM  ( KTEMP  ) 

TDQMTU KTEMP)  -  TDOMTL ( KTEMP )  ♦  QTR  *  DQM( KTEMP) 

RSFK-RSFK+QTR*RSF( KTEMP ) 

VITNR-V ITNR*GTR*DQM (KTEMP ) /FOX (KTEMP ) 

DO  S3  IG-l, NTXG 
S3  RCFK( IG)-RGFK( IG > +QTR-RGF ( IG. KTEMP) 

XTFC-ITFCS(KV) 

IF  ( XTFC.  LE.  0  )  GO  TO  110 
KTEMP- ( DELTSP /XTFC  >  *TH0U 
ITFCP— I TFCP+KTEMP 
90  I ST-3 

C  REPACK  THE  ELMNT  STATE  DAT * 

ITX-0 

NFE( I ) -NFE ( I )  ♦  1 
ISG-1 

IFtITY.  IT  0)  ISO— 1 

IWORDSdS,  IDX I >  IDXJ)-ITY#10000+ISG*ITX 
I STATS ( IS.  IDX I ,  IDX J  >  —  ITFCP* 1 00* ISTP *10+ 1ST 
C  IF  ALL  4  DIRECTIONS  HAVE  BEEN  CHECKED  JUMP  TO  120,  IF  NOT  RETURN  TO  30 
110  IF(L.  CE.  4)  GO  TO  120 
L-L+l 
GO  TO  30 

C  THE  NEXT  33  STMTS  CONCERN  THE  SPREAD  OF  FIRE  TO  THE  SIDEWALLS  FROM  THE 
C  SEATS.  FIRST  THE  SEAT  ELMNT  MUST  BE  IN  THE  CORRECT  POSITION  (CUSHION 
C  TOP  OR  REAR  OF  BACKREST)  AND  MUST  HAVE  BEEN  BURNING  FOR  THE  REQUIRED 
C  LENGTH  OF  TIME,  TIMWS.  FINALLY  THE  SEAT  MUST  BE  WITHIN  ONE  ELMNT 'S 
C  DISTANCE  FROM  T HE  SIDEWALL. 

120  CONTINUE 

124  IF  ( J  J.  GT.  3  AND  JJ.  LT  13)  GO  TO  190 
IF ( JJ.  GT.  18  .  AND  JJ.  LT.  22)  GO  TO  190 
IF( JJ.  EQ.  3) GO  TO  143 
IF<  JJ.  EG.  22>G0  TO  130 
IF (RFWS.  LE.  0.  >G0  TO  190 
TIMWS-DWS/RFWS 
IF(TXO. LT. TIMWS)GO  TO  190 
I X-2. O—SGWD (IS) +TOL 

IFdl.NE.  1  OR.  I  ONE  (IS).  GT.  2)  GO  TO  133 
C  SEAT  GROUP  IS  NEXT  TO  THE  LEFT  SIDEWALL. 

IF <  JJ.  GT.  12  AND.  JJ.  LT.  19)C0  TO  130 
C  USE  THE  ARRAYS  ISSWLI  AND  ISSWLJ  TO  COMPUTE  THE  SPREAD  FROM  SEAT 
C  CUSHIONS  TO  THE  SIDEWALL  -  LEFT  SIDE. 

IP— ISSWLI ! IS,  JJ) 

JP-ISSWLJ< IS, JJ) 

123  ICR  IT- IRA Y ( IP ) 

CALL  CVOUT < IP, JP ,  ICRIT,  1ST,  ISTP,  ITFCP) 

IF ( 1ST  NE.  ISTP)  GO  TO  190 
CALL  CWORD( IWORD( IP, JP ) , ITX, ITY) 

KTEMP— IMATL ( ICRIT) 

XTFC— I TFC (ICRIT) 

IF ( XTFC  LE.  0.  )  GO  TO  190 
GO  TO  134 

C  USE  THE  ARRAYS  ISSWLI  AND  ISSWLJ  TO  COMPUTE  THE  SPREAD  FROM  SEAT 
C  BACKRESTS  TO  THE  SIDEWALL  -  LEFT  SIDE. 

130  JX-JJ-0 

IP-ISSWLK  IS,  JX) 

JP-ISSWLJ< IS. JX) 

GO  TO  123 

C  SEAT  GROUP  IS  NEXT  TO  THE  RIGHT  SIDEWALL. 

133  I Y— I X* I ONE ( IS ) *  1 
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IF  (  1 1  ME.  IX  OR  IY.LT  IMAX  <  1  >  >  GO  TO  190 
IF  ( JJ.  GT  12  AND.  JJ.  LT  19)  GO  TO  140 
C  USE  THE  ARRAYS  IS3WR I  AND  ISSWRJ  TO  COMPUTE  THE  SPREAD  FROM  SEAT 
C  CUSHIONS  TO  THE  SIDEWALL  -  RIGHT  SIDE. 

IP-ISSWRI < IS. JJ) 

JP»ISSWRJ< IS. JJ) 

CO  TO  125 

C  USE  THE  ARRAYS  ISSWRI  AND  ISSWRJ  TO  COMPUTE  THE  SPREAD  FROM  SEAT 
C  BACKRESTS  TO  THE  SIDEWALL  -  RIGHT  SIDE 
140  JX-JJ-8 

IP-ISSWRI ( IS,  JX) 

JP— I SSWR J ( IS. JX) 

GO  TO  125 

C  THE  NEXT  30  STMTS  CONSIDER  FIRE  SPREAD  BY  FLAMES  JUMPING  FROM  THE 
C  FRONT  OF  ONE  SEAT  GROUP  TO  THE  BACK  OF  ANOTHER  OR  VICE  VERSA. 

C  THE  POSSIBILITY  OF  A  JUMP  OCCURS  ONLY  WHEN  THE  FORE-AFT  SEPARATION 
C  BETWEEN  TWO  SEAT  GROUPS  IS  TWO  OR  LESS  ELMNT  WIDTHS. 

C  FIRST  CHECK  FOR  SPREAD  FROM  THE  BACK  OF  THE  CURRENT  SEAT  GROUP  TO  THE 
C  FRONT  OF  THE  ONE  BEHIND  IT  (IF  ANY)  IP  AND  JP  ARE  THE  "TARGET  ELMNT" 
C  INDICES  ON  THE  SEAT  TO  BE  IGNITED 

145  Il-IS-M 

IF<  I  1  GE.  9)00  TO  190 

12-9 

IK- IS 

L-IONE( IS)+II 
DO  146  IJ-I1. 12 
IK-IK+1 

IF< IARY(L,  IK)  NE.  0)00  TO  147 

146  CONTINUE 
GO  TO  190 

147  IF( ( JONE( IK)-JONE( IS>*3)  GT  2>G0  TO  190 
IP—  I  ARY  (  L,  IK) 

JP-22 

KJ-7 

148  ICR IT-IK+LSN 

CALL  CVOUTdP.JP-.  ICR  IT.  1ST,  ISTP,  ITFCP) 

IF ( 1ST  NE.  ISTP  >00  TO  190 

CALL  CWQRD( IWGRDS( IS,  IP, JP ) .  ITX.  ITY ) 

KTEMP-iMATS(KJ) 

XTFC-ITFCS(KJ) 

IF  (  XTFC.  LE.  0.  )  GO  TO  190 
GO  TO  154 

C  CHECK  FOR  SPREAD  FROM  THE  CURRENT  SEAT  GROUP  TO  THE  ONE  AHEAD  OF  IT. 

C  IP  AND  JP  ARE  THE  TARGET  ELMNT  INDICES  OF  THE  SEAT  AHEAD. 

150  I2-IS-1 

IF <  12.  LE.  1)00  TO  190 
1 1  - 1 
IK— IS 

L-IONE ( IS )  +  1 1 
DO  151  IJ-I1. 12 
IK— IK— 1 

IF<  IARYCL,  IK).  NE.  0)00  TO  152 

151  CONTINUE 
00  TO  190 

152  IFC ( JONE< IS)-JONE( IK)*3)  GT. 2>G0  TO  190 
IP— I ARY ( L,  IK) 

JP-S 

KJ-2 

GO  TO  148 

C  ELMNTS  IN  STATES  1,2,5.  AND  6  WILL  BE  IGNITED*  OTHERS  ARE  SKIPPED. 

C  ADJUST  THE  PRODUCT  GENERATION  RATES  AND  OXYGEN  CONSUMPTION  RATES 


k 
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C  FOR  THE  EFFECT  OF  THE  IGNITED  ELMNTS 

154  SO  TO (  1 55.  155.  190.  190,  155,  155.  190).  1ST 

155  IFtlST  .  EQ.  2)  NPE < ICR  I T ) *NPE < ICR  I T > - 1 
DQK*DQK+QTR*DOM  ( KTEMP  ) 

TDQMTL ( KTEMP )  *  TDQMTL < K TEMP >  +  QTR  ♦  DQM( KTEMP) 

RSFK*RSFK+QTR  *RSF  <  KTEMP ) 

VITNR«VITNR+QTR*DQM<KTEMP ) /FOX (KTEMP ) 

DO  160  I 6*1. NTXS 

160  RCFK ( I G ) *RGFK ( IG ) +QTR*RSF < IG, KTEMP ) 

ITEMP- ( DELTSP / XTFC ) *THOU 
ITFCP-ITFCP+ITEMP 
170  IST*3 
ITX-0 

NFE< ICR  IT ) *NFE ( ICR  IT ) *1 

C  REPACK  THE  ELMNT  STATE  DATA  FOR  LINING  SURFACES  OR  SEATS  AS  REQUIRED 
ISG*1 

IF <  ITY.  LT.  0)  ISG— 1 
IT1*ITY*10000*ISG*ITX 
IT2-ITFCP*100+ISTP*10+IST 
IFUCRIT.  GT.  LSN1G0  TO  180 
I WORD ( IP. JP)*IT1 
ISTATE( IP. UP)»IT2 
00  TO  190 

180  IUORDSC IS.  IP. JP)»IT1 
I ST ATS < IS. IP. UP )*IT2 
C  END  OF  LOOPS  OVER  ORIGINATING  ELMNTS. 

190  IF<  II.  LT.  IVMX)  GO  TO  20 
II-IVMN-1 

IF(UU.  LT.  JVMX)  GO  TO  10 

RETURN 

END 
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SUBROUTINE  FCONS(I) 


C  OBJECTIVE 

C  (1)  SUBROUTINE  FCONS  COMPUTES  THE  FIRE  SPREAD  DUE  TO  FLAMES  FROM  A 
C  FIRE  ON  A  SEAT  GROUP  CONTACTING  CEILING  AND/OR  HAT  RACK  ELMNTS 
C  COMMENTS 

C  (1)  TERMINOLOGY  OF  -SHOOTING"  AND  “TARGET"  ELMNTS  APPLIES.  SEE  SUBR 
C  FCON. 


COMMON/CNTRL/DELTAT, DELTSP. ECOFLG. IDELT, IDENT(20), IDTPRV. IPEMS. 

1  IPSPR,  IPAUX,  IRATIO,  ISAVE,  ISCALE,  ITFIN,  ITIME.  ITIM2, 

2  ITSPRD.  NP ASSi  TFINAL,  IDBUCl,  EPSLN.  MAXITR.  MAXCUT, 

3  JCBSHP 

COMMON/FIRES/ AFM<  7 ) .  ASM(7>,  ISTATE<120.  15).  ISTATS(9,  16.  22). 

1  I WORD ( 120. 15). IW0RDS<9, 16. 22), NFLM<7) .  NPYR (7) , 

2  RGS( 10. 7) , RSS  <  7 ) , TOTGASC 10) . TOTSEM. TRGF( 10). 

3  TRCS<  10),  TRSF,  TRSS.  NCE  ( 30) ,  VITNR.  TOTVIT.  RADFIROO). 

4  ACM < 7 ) , AF <  30 ) . AF I , AEXP, COMB ( 30) ,  DGK,  FLML ( 30 ) .  FSN 1 , 

5  FSN2,  FSN3,  GAMMA  <  30 ) .  I  BURN,  IF<600).  IGMNI,  IGMNJ.  IGMX1. 

6  IGMXJ, IGNFIR, IGNIJ(2. 100). IGSN. ISFIRE130). IVMAX(30). 

7  IVMINOO) ,  IVMN,  IVMX.  IXFIRE,  I20NE( 30) ,  JVMAX  ( 30) , 

S  JVMINOO).  JVMN,  JVMX,  K.  NFE(30).  NF1RES.  NIJC.  NIjSQ. 

9  NPE ( 30 > ,  NSFL ( 7) ,  OMEGA ( 30) ,  PDH,  P IGN,  RFC20.  4).  RFS<7,  4), 

1  RFUS,  RGF (  10,  7),  RGFKQO).  RH0ZC30).  RSF<7>,  RSFK.  TDG. 

2  TBURNI. UZ ( 30  >  > Y  Z  < 30  > , ZB ( 30) . RHOEFG,  CHIEFG (11). 

3  FLOWIN,  FLWOUT.  TEFG,  IFRVNT,  GENRAT  (11  ),  TDOMTL  ( 7 ) , 

4  TP  ( 7  > .  TPC  <  7 ) 

COMMQN/GASES/CHIL<  lx.  5),  CHIU(  11.  5),  CP,  NGAS<  11).  NSPCS,  PAMB,  PF(5), 

1  RHOAM,  RHOL  (  5 ) ,  RHOU  ( 5 ) ,  TAM,  TL(5),  TU<5),  V0LL(5), 

2  VOLU <  5 ) , ZD (5).  XTHENC 120 ) . UMOLEC ( 1 1 ) ,  TUO( 101). 

3  JCOR ( 120 ) 

COMMON/GMTRY  /  IMATL  <  20 ) .  IMATS<  7  )  ,  IMTLP<4),  IMAX<30),  IMINOO), 

1  I RAY (116).  1RAYS 122) *  JMAX ( 30 ) . JMIN130) ,  LSN.  MAXELI.  NS, 

2  CH.  CL<4).CW.  DWB.HSTS.  IARX140.  15).  IARY(40.  12).  ICLL, 

3  ICLR.  I  END.  IFIRL,  IFIRR,  ILSTL,  ILSTR,  I0NE<9>, 

4  ISSWLI  (9.  10).  ISSWLJ(9,  10),  ISSWRK9,  10).  ISSURJ19.  10). 

5  ISUSLU5.  8),  ISUSR  ( IS.  8) ,  ISTART,  NPRQJ,  IPJUL,  IPJLL, 

6  IPJUR.  IPJLR,  JEND.  J0NE(9).  JSTART ,  NJS.  NSC.  NV.  SCUD<9>. 

7  SL.  SWD ( 20 ) . VN  < 20, 3). VENTH  <  24 ) , VENTW ( 24 ) ,  VENTT ( 24 ) . 

8  XMN  ( 30) ,  XMX  (30) .  XCOR  ( 9 ) .  YCOR  ( 9) ,  ZOO),  SSOWD,  TVSG, 

9  HT1 , HT2. HT3, HT 4(10). NSSTS, SLSU. SX ( 30) . SZ OO ) . 

1  CNCTNS (24  > , NCOMPS,  IFRCMP, FLOW! 24 ) .  INT0(24 > , VTOTAL ( 4 ) , 

2  FHMIN 

COMMON /MATLS/ TAB  X  <  IS,  7,  6).  TABY(  18.  7,  6).  NTXG.  FOXI,  RADTAB  (  7  > ,  RADI , 

1  FOX (7) , NMATLS. DQI. DQMI7). GAMI, GTAB (7 ) , ITF(20), IRAMPT, 

2  ITFC (20 ) ,  ITFCS < 7) ,  ITFS(7),  ITP(20>.  ITPC(20).  ITPCS ( 7 ) , 

3  ITPEC20),  ITPES  <  7 ) ,  I TPS ( 7 ) , SCI, GP ( 7 ) , GTAB ( 7 ) , RHOI , 

4  RHOM (7 ) , RSI,  RTAB<7). RTGI ( 10) .  UTAB(7>, CNDCTY(7>,  XMUI. 

5  XMFI,  TKNSI7),  TSLOO,  2,  4),  TSPC2,  2,  4),  CPM(  7  > .  WMMTL  (  7 ) , 

6  WMICF,  THNSIN(7> 

COMMON/PARAMS/GRAV,  PI,  QTR,  RGAS,  SIGMA,  SOD,  THOU,  TOL.  EC.  EP 
COMMON/RAOTN/ALPC.  ABSCFOO).  EB,  GC(2) 

C  FHGT  ■  BASE  DISPLACEMENT  FOR  FIRE  K  +  FLAME  LENGTH  OF  THE  FIRE 
FHGT«ZB  <  K ) +FLML ( K ) 

C  IF  FHGT  IS  LESS  THAN  FHMIN.  FLAMES  DO  NOT  TOUCH  OVERHEAD  SURFACES 
IF(FHGT.  LT.  FHMINIGO  TO  500 

C  FLAG  IXFIRE,  SET  IN  SUBR  FIRE.  SIGNALS  THE  SEAT  FIRE  LOCATION: 

C  IXFIRE  »  1  ■>  CUSHION  BOTTOM.  >2  ■>  CUSHION  TOP.  >3  «>  BACKREST. 

IF ( IXFIRE-2)  500,  5,  7 

C  IF  THE  FIRE  IS  ON  THE  CUSHION  TOP  TEST  NSFL<7>  TO  FIND  IF  IT  IS  ALL 
C  ON  THE  FRONT  SURFACE  <7)  ELEMENT.  IF  SO,  RETURN. 
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IT-FSN2+T0L 

IF  C  IT.  £3.  NSFL(7>  )G0  TO  500 
GO  TO  10 

C  IF  THE  FIRE  IS  ON  THE  BACKREST  TEST  NSFLC4)  TO  FIND  IF  IT  IS  ALL  ON 
C  SEAT  SURF  4  AND  SO  IS  TOO  SMALL  TO  CONTACT  OVERHEAD  SURFACES. 

7  IT-FSN3+T0L 

IF(  IT.  EG.  NSFL(4)  )G0  TO  500 
C  COMPUTE  SEAT  GROUP  NUMBER  FROM  THE  VALUE  OF  I 
10  IS-l-LSN 

C  STMTS  15  AND  20  START  LOOPS  OVER  THE  SHOOTING  ELMNTS  GIVEN  BY  II,  JU. 
II-IVMN-1 
J J- JVMN- 1 

I CON- I END- I START* 1 
1 5  J J- J J+ 1 

20  II-II+l 

IJ-< II-ISTART+1)+IC0N*( JJ-USTART) 

C  USE  THE  ARRAY  IF  TO  FIND  IF  THE  SHOOTING  ELMNT  II,  JU  IS  FLAMING. 

IF< IF< IJ)  LT.  1 )G0  TO  100 
L- 1 ONE  < I S  >  + 1 1 

C  USE  THE  ARRAY  I ARY  TO  FIND  <11  IF  THE  OVERHEAD  SURFACE  IS  A  HATRACK 
C  OR  A  CEILING/PSU/STOW-B IN  SURF  AND  (2)  ITS  DISPLACEMENT  FROM  THE  FLOOR 
IDX-12 

IF < I ARY < L,  10)  NE.  0)IDX-10 
IP— IARY  <L,  IDX) 

ICRIT-IRAY ( IP  > 

C  CHECK  TO  SEE  IF  THE  FLAMES  REACH  THE  OVERHEAD  SURFACE. 

IF( FHGT.  LT.  Z  < ICRIT) )G0  TO  100 
IF<  JJ.  GT.  1S)G0  TO  35 

C  SHOOTING  ELMNT  II,  JJ  IS  ON  THE  BACKREST-  SELECT  TARGET  ELMNT  J  INDEX 
30  JP»JONE< IS) +4 

GO  TO  40 

C  SHOOTING  ELMNT  II,  JJ  IS  ON  THE  CUSHION  TOP,  SELECT  TARGET  J  INDEX 
C  SKIPPING  ROW  22,  THE  CUSHION  FRONT. 

35  IFCJJ.  EG.  22)00  TO  100 
JP— JONE (IS) +22— JJ 

C  UNPACK  THE  TARGET  ELMNT  STATE  DATA. 

40  CALL  CVOUT < IP, JP,  ICRIT,  1ST,  ISTP,  ITFCP) 

CALL  CWORD< IUORDCTP, JP ) , ITX, ITY) 

C  SELECT  THE  STATE  TRANSITION  APPROPRIATE  TO  THE  TARGET  ELMNTS  CURRENT 
C  STATE:  1  ->  6.  2  ->  3.  SKIP  3  AND  4.  5  ->  6,  6  ->  3.  SKIP  7.  THE 
C  TRANSITION  6  ->  3  IS  MADE  ONLY  IF  THE  TARGET  ELMNT  HAS  BEEN  IN  STATE 
C  6  LONGER  THAN  THE  CURRENTLY  APPLICABLE  IGNITION  TIME  FOR  THIS  MATERIAL 
55  GO  TOC  58,  70,  95.  95,  60,  70,  95),  1ST 
58  ITX— 0 

60  I ST-6 

GO  TO  90 

70  IFCIST.  EG.  2)  GO  TO  75 

IFCITX. LT. ITF< ICRIT) )G0  TO  95 
ITX— ITX-ITF ( ICRIT) 

GO  TO  80 
75  CONTINUE 
ITX— 0 

NPE< ICRIT)-NPE< ICR  IT )  —  1 
80  I ST-3 

C  UPDATE  THE  PRODUCT  GENERATION  RATES  AND  OXYGEN  CONSUMPTION  RATES  TO 
C  REFLECT  THE  NEW  IGNITION  OF  THE  TARGET  ELMNT 
KTEMP-IMATLC ICRIT) 

DOK-DGK*QTR*OGM ( KTEMP > 

TDQMTL ( KTEMP )  -  TDGMTL < KTEMP )  +  GTR  *  DGM( KTEMP) 

RSFK— RSFK+QTR*RSF ( KTEMP ) 

V I TNR —VI TNR  +0TR *DGM ( KTEMP ) /FOX  t  KTEMP ) 


.  5-  ' ,  VV'/ffe1, '  •*' "* 
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DO  82  IG-1. NTXG 

82  RGFK< IG>-RGFK< IG  >  ■M3TR*RGF  ( IS, KTEMP > 

C  UPDATE  THE  FRACTION  CONSUMED  FOR  THE  TARGET  ELMNT. 

XTFC-ITFCl ICRIT) 

IF <  XTFC.  LE.  0.  >  SO  TO  100 
KTEMP* ( DELTSP / XTFC ) *THOU 
I TFCP* ITFCP+KTEMP 
NFE( ICRIT)-NFE< ICRITJ-M 

C  REPACK  THE  STATE  ARRAYS  FOR  THE  TARGET  ELMNT. 

90  ISO-1 

IF <  ITY  LT  0)  ISO— 1 
IwORD( IP, JP)«ITY*10000+ISG*ITX 
ISTATE< IP, UP)*ITFCP*100*ISTP*10*IST 
C  FOR  SHOOTING  ELMNTS  ON  THE  3ACKREST  SKIP  OUT  OF  THE  JJ  LOOP  TO 
C  CONSIDER  A  NEW  II  VALUE  SINCE  THE  TARGET  ELMNTS  WILL  BE  THE  SAME  FOR 
C  ALL  JJ  VALUES  AT  FIXED  II. 

IF< IXFIRE.  EQ.  3>G0  TO  110 

99  CONTINUE 

C  END  OF  THE  LOOPS  OVER  THE  SHOOTING  ELMNTS. 

100  IFIII.LT.  IVMX1G0  TO  20 
110  II-IVMN-1 

IF( JJ.  LT.  JVMXJOO  TO  19 
900  RETURN 
END 
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SUBROUTINE  PVQLS(I) 


OBJECTIVE 

(1)  SUBROUTINE  PVOLS  COMPUTES  THE  INITIATION  OF  NEW  REGIONS  OF 
SMOLDERING  ON  THE  SEATS,  CEILING  AND/OR  HAT  RACKS  DUE  TO  THE 
RADIATION  FROM  FLAMES  OF  FIRE  ON  THE  SEAT  GROUP  GIVEN  BY  THE  VALUE 
OF  I. 

COMMENTS 

(1)  THE  TERMINOLOGY  OF  "SHOOTING"  AND  "TARGET"  ELMNTS  APPLIES.  SEE 
SU8R  PVOL. 


COMMON/CNTRL/DELTAT, DELTSP, ECOFLG, IDELT, IDENT(20). IDTPRV. IPEMS. 

1  IPSPR.  IPAUX,  I RATIO*  ISAVE,  ISCALE,  ITFIN,  I  TIME,  ITIM2, 

2  ITSPRD, NP ASS, TFINAL,  IDBUG1, EPSLN, MAXITR.  MAXCUT, 

3  JCBSKP 

COMMON /FI RES /AFM  <  7 ) , ASM(7),  1ST  ATE ( 120,  IS),  I STATS <9,  16, 22), 

1  IWORDt 120,  IS),  I WORDS (9,  16, 22). NFLM< 7) , NPYR ( 7) , 

2  RGS< 10, 7), RSS<7), TOTGASt 10),  TOTSEM,  TRGF( 10), 

3  TRGS<  10),  TRSF,  TRSS,  NCE(30) ,  VITNR,  TOTVIT,  RADFIROO), 

4  ACM ( 7 ) ,  AF ( 30 ) ,  AF I ,  AEXP, COMB ( 30 ) , DGK,  FLML ( 30 ) , FSN1, 

3  FSN2, FSN3, GAMMA ( 30 ) , 1BURN, IFC600). IGMNI. IGMNJ. IGMXX, 

6  IGMXJ, IGNFIR, IGNXJC2, 100), IGSN. ISFIRE(30). IVMAX(30), 

7  IVMINOO),  IVMN,  IVMX,  IXFIRE,  I  ZONE ( 30 ) , JVMAX < 30 ) , 

5  JVMIN  <  30 ) ,  JVMN,  JVMX,  K,  NFE  ( 30 ) ,  NFIRES.  NIJC.  NIJSG, 

9  NPE  ( 30  > ,  NSFL  ( 7  >  •  OMEGA  ( 30 ),  PDH.  PICN,  RF(20.  4),  RFS<7.  4), 

1  RFWS, RGF ( 10, 7), RGFK ( 10) , RHOZ ( 30) ,  RSF ( 7 ) ,  RSFK,  TDQ. 

2  T8URNI , UZ  <30), YZ(30>,  ZB (30) ,  RHOEFG.  CHIEFGt 11), 

3  FLOWIN,  FLWOUT. TEFG,  IFRVNT , GENRAT (11),  TDQMTL ( 7 ) , 

4  TP  <  7 ) ,  TPC  ( 7  ) 

COMMON/GASES/CHIL < 1 1 ,  3),  CHIU(  11. 3). CP,  NGAS ( 1 1 >, NSPCS, PAMB, PF(S), 

1  RHOAM, RHOL(S), RHOU(S), TAM,  TL<3>,  TU( 3) ,  VOLU 3) , 

2  VOLUO),  ZD<  3 ) ,  XTHENU20).  WHOLE C  <  11  >,  TWO<  101  ), 

3  JCORC 120) 

COMMON/ GMTRY/ 1 MATL  <  20) ,  IMATSI7) ,  I MTLP ( 4 ) ,  IMAX130),  IMIN(30), 

1  IRAY< 116),  IRAYS ( 22 ) , UMAX ( 30 ) ,  JM I N ( 30 ) ,  LSN,  MAXELI-  NS. 

2  CH,  CL  <  4 ) ,  CW,  DWS.  HSTS,  IARX(40,  13),  IARY(40.  12),  ICLL. 

3  ICLR,  I  END,  IFIRL,  IFIRR,  ILSTL,  ILSTR.  I0NE19), 

4  ISSWLI  <  9,  10),  ISSWLJC9,  10),  ISSWRI  (9,  10),  ISSWRJC9.  10), 

3  ISWSL( 13.  8),  ISWSRC13.  8),  1ST  ART,  NPROJ.  IPJUL,  IPJLL, 

6  IPJUR.  IPJLR,  JEND.  J0NEC9),  JSTART,  NJS,  NSG.  NV,  SGWDC9), 

7  SL, SWD<20). VN(20, 3 ) , VENTHt 24 ) ,  VENTW( 24 > ,  VENTT (24 ) , 

5  XMN ( 30 ) ,  XMX ( 30 ) ,  XCOR  ( 9 ) ,  YCOR ( 9 ) ,  ZOO),  SSGWD.  TVSG, 

9  HT1,  HT2,  HT3,  HT 4(10).  NS5TS,  SLSW,  SX  ( 30 ) ,  SZ  ( 30) , 

1  CNCTNS ( 24 ) , NCOMPS,  IFRCMP, FLOW( 24 > ,  INTO( 24 > ,  VTOTAL ( 4 ) , 

2  FHMIN 

COMMQN/MATLS/TABX  (  18,  7,  6),  TABY(  18,  7,  6),  NTXG.  FOX  I,  RADTAB  ( 7  ) .  RADI, 

1  FOX  <  7 ) , NMATLS, DQI. DQM(7>, GAMI, GTAB ( 7) ,  ITF(20>.  IRAMPT, 

2  ITFC (20 ) ,  ITFCS  <  7 ) ,  ITF5(7>,  ITP(20>.  ITPC(20>,  ITPCS(7>, 

3  ITPE ( 20 ) , ITPES ( 7 ) , ITPS(7>, GCI. QP(7), GTAB ( 7 ) , RHOI. 

4  RH0M(7). RSI. RTAB ( 7 ) , RTGI (10). UTAB ( 7 > , CNDCTY ( 7 ) ,  XMUI, 

3  XMFI,  TKNS(7>,  TSLOO,  2,  4),  TSP(2,  2,  4 ) ,  CPM  ( 7 ) ,  WMMTL  ( 7 ) , 

6  WMIGF,  TKNSIN(7) 

COMMON/P ARAMS/GRAV,  PI-  GTR,  RGAS.  SIGMA,  SOD,  THOU,  TOL.  EC.  EP 
COMMON/RADTN/ALPC-  ABSCFOO),  EB,  0C(2> 

DIMENSION  ISD < 4 ) 

C  ICON  IS  A  CONSTANT  USED  WITH  ARRAY  IF 
C  FHGT  -  FIRE  BASE  DISPLACEMENT  +  FLAME  LENGTH 
I CON* I END- 1 START  *1 
FHGT "ZB  <  K  >  +FLML ( K ) 

JJ-0 

C  IF  THE  FIRE  IS  ON  THE  CUSHION  BOTTOM  SKIP  IT  AND  RETURN  (IXFIRE  »  1) 
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IF<  I XFIRE-2 )  300>  5.  7 

C  IF  THE  FIRE  IS  TOTALLY  ON  THE  CUSHION  FRONT  SURFACE  (7),  SKIP  IT  AND 
C  RETURN. 

5  IT-FSN2+T0L 

IF (  IT.  LE.  NSFL(7)  >GO  TO  SOO 
80  TO  10 

C  IF  THE  FIRE  IS  ONLY  ON  ,iE  TOP  OF  THE  BACKREST  (SURFACE  4)  SKIP  IT  AND 
C  RETURN. 

7  IT-FSN3+T0L 

IF<  IT.  LE.  NSFLI4)  >80  TO  300 
JJ-11 

C  COMPUTE  THE  SEAT  8R0UP  NUMBER  FROM  THE  VALUE  OF  I. 

10  IS-I-LSN 

C  STMTS  13  AND  20  START  LOOPS  OVER  THE  SH00TIN8  ELMNTS  II.  JJ. 

II-IVMN-1 

IF ( UJ.  EQ.  11)80  TO  IS 
JJ-JVMN-1 
13  JJ*JJ+1 
20  11*11+1 

IJ-< II-ISTART+1 >+ICON*< JJ-JSTART) 

C  IXFIRE  -  3  ->  FIRE  ON  BACKREST,  IF  NOT  SET  IRET  *2  ->  LATERAL 
C  INFLUENCE  COMPUTATIONS  NOT  REQUIRED. 

IF ( IXFIRE.  NE.  3)80  TO  22 

IRET-2 

80  TO  28 

22  IF(IF(IJ)-1)300,  26. 27 

C  SHOOTINO  ELMNT  IS  NOT  ON  THE  BASE  PERIMETER,  SET  IRET  -  2 

26  IRET-2 
80  TO  28 

C  SHOOT I N8  ELMNT  IS  ON  THE  BASE  PERIMETER,  IRET  -  1 

27  IRET-1 

C  SAVE  THE  SHOOT 1 N8  ELMNT  INDICES  AS  IP,  JP  AND  SET  IRET  -  1  TO  SIQNAL 
C  LATERAL  INFLUENCE  COMPUTATIONS  REQUIRED. 

28  IP-II 
JP-JJ 

KK-IRAYS< JP) 

80  TO  180 

C  CONTROL  REACHES  STMT  30  IF  SMOLDER  INC  OF  ELEMENTS  NEXT  TO  AND  ON  THE 
C  SAME  SURFACE  AS  THE  FIRE  BASE  IS  TO  BE  CONSIDERED.  USE  ISIDE  TO 
C  DETERMINE  WHICH  SIDES  OF  THE  SHOOTINC  ELEMENT  ARE  ADJACENT  TD 
C  NON— BURNING.  AND  THUS  CANDIDATE  TARGET  ELEMENTS. 

30  CALL  ISIDEUFUJ).  ISO) 

C  COMPUTE  THE  SMOLDERING  RANGE  IN  TERMS  OF  THE  NUMBER  OF  ELMNT 
C  DIMENSIONS 

NSQH-PDH/SQD 

IF < NSQH. LT  1)80  TO  300 

NSQ-0 

C  PREPARE  TO  FORM  A  LOOP  OVER  THE  4  DIRECTIONS  OUT  FROM  THE  SHOOTING 
C  ELMNT.  L  INDICATES  THE  CURRENT  CHOICE  OF  DIRECTION,  NSQ  THE  NUMBER 
C  OF  ELMNTS  CONSIDERED  IN  MOVING  IN  EACH  DIRECTION. 

40  L-0 

30  L-L+l 

IF <  ISD(L) .  EQ.  1)90  TO  70 
60  IF(L. EQ  4)80  TO  300 
NSQ*# 

GO  TO  30 
70  NSQ-NSQ+ l 

00  TO  (GO.  90.  lOO.  110).  L 

C  THE  FOUR  GROUPS  OF  STATEMENTS  AT  80.  90,  100.  AND  110  SELECT  THE  I  AND 

C  J  INDICES  FOR  THE  CANDIDATE  TARGET  ELMNTS.  TESTS  ARE  MADE  TO  PREVENT 
C  COMPUTING  INVALID  INDEX  VALUES. 
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BO  IP-II 

JP-JJ-NSQ 

IF  <  JP  LT.  1 9 ) GO  TO  60 
GO  TO  S3 
90  IP-II 

JP-JJ+NSG 

IF<  JP.  GT.  21)80  TO  60 
80  TO  S3 
100  IP— I I-NSQ 
JP-JJ 

IF <  IP.  LT.  IMIN< 1 )  >80  TO  60 
SO  TO  S3 
110  IP-II+NSQ 
JP-JJ 

IFdP.ST.  I  MAX  ( I )  )  GO  TO  60 

C  I RET  -  3  SIGNALS  CONTINUED  NEED  FOR  PERIMETER  (LATERAL)  CHECKING, 
as  IRET-3 

C  UNPACK  THE  STATE  DATA  ON  THE  CANDIDATE  TARGET  ELMNT.  ITS  PAST  AND 
C  PRESENT  STATE  MUST  BE  EQUAL  TO  QUALIFY  FOR  TRANSITION. 

122  CALL  CVOUTdP,  JP,  I,  1ST,  ISTP,  ITFCP) 

IF<  1ST.  NE.  ISTP  )  80  TO  160 

CALL  CHORD ( IWQRDSi IS, IP, JP), ITX, ITY) 

C  SELECT  THE  STATE  TRANSITION  BASED  ON  THE  CURRENT  STATE:  1  ->  3;  2 
C  REMAINS  2i  SKIP  3,  4.  AND  7.  3  ->  2,  6  ->  3. 

80  TO  <124,  130,  160,  160,  130.  12S,  160).  1ST 
124  ITX-O 

123  I ST-3 

GO  TO  140 

130  IF< 1ST  EQ.  2)G0  TO  133 
KX-IRAYS< JP) 

IF< ITX. LT.  I TPS < KX ) ) 80  TO  133 
I  ST-2 

XTPC-ITPCS(KX) 

IF  ( XTPC.  LE.  O.  )  GO  TO  160 
KTEMP— < DELTSP / XTPC ) *THOU 
I TFCP— ITFCP+KTEMP 
ITX— ITX— ITPS ( KX ) 

NPE ( I ) — NPE  <  I )  + 1 

C  REPACK  THE  NEW  STATE  DATA  ON  THE  TARGET  ELMNT 
133  ITY— 1 
140  ISO— 1 

IF<  ITY.  LT.  0)  ISG— 1 

IWORDSdS. IP, JP )— ITY* 10000+ ISG* ITX 
I STATS < IS, IP, JP )— I TFCP *100+ ISTP* 10+ I ST 
160  CONTINUE 

C  CONTROL  REACHES  STMT  180  WHEN  THE  SURFACE  OF  THE  TARGET  ELMNTS  IS 
C  A  CEILING  OR  HAT  RACK  SURFACE.  USE  ARRAY  I ARY  TO  DECIDE  WHICH 
180  LL- I ONE ( I S ) + I P 
IDX-12 

IF  ( I  ARY  ( LL,  10).  8T.  OMDX-IO 
IPP— IARY (LL, IDX) 

JPP-JGNE  < IS) +4 

IF<  JP.  EQ.  22)  80  TO  230 

IF( IXFIRE. EQ. 2) JPP-JPP+18-JP 

ICRIT-IRAY< IPP) 

C  TEST  TO  FIND  WHETHER  THE  FLAMES  CONTACT  THE  TARGET  ELMNTS.  IF  NOT  SKIP 
C  FURTHER  CALCULATIONS. 

ZZ— ZdCRIT) -FHCT 
IF (  ZZ.  LT.  0)80  TO  230 
XTEM-(ZZ*ZZ/(YZ(K)*YZ(K) ) >*4.  0 
C  COMPUTE  THE  RADIATION  LEVEL  FOR  THIS  OVERHEAD  SURFACE. 
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QCS-6.  52*<1.  (XTEM-3.  )/SQRT(  (9  +XTEM)*< 1  ~XTEM>  )  )  ) 

IMT-IMATLI ICR  IT) 

C  TEST  THIS  RADIATION  LEVEL  VERSUS  THE  THRESHOLD  LEVEL  FOR  THE  MATERIAL 
C  OF  THE  TARGET  ELMNTS,  IF  THE  THRESHOLD  IS  NOT  REACHED  SKIP  OUT 
IF(OCS.  LE.  QPdMT) )GO  TO  250 
C  UNPACK  THE  STATE  DATA  ON  THE  TARGET  ELMNT. 

CALL  CVOUTdPP.  JPP,  ICR  IT,  1ST,  ISTP,  ITFCP) 

IF ( 1ST  HE.  ISTP) GO  TO  250 

CALL  CWORDdWORDdPP, JPP),  ITX,  ITY) 

XTPC-ITPCdCRIT) 

IF<XTPC.  LE.  0.  )  GO  TO  250 
ITXX«ITP<ICRIT> 

C  SELECT  THE  STATE  TRANSITION  BASED  ON  THE  CURRENT  STATE,  SAME  RULES 
C  APPLY  AS  FOR  THE  PERIMETER  CALCULATIONS. 

210  GO  T0(211.  215.  250,  250,  215,  212,  250),  1ST 

211  ITX-0 

212  IST-5 

GO  TO  230 

215  IF (1ST  EG.  2) GO  TO  220 

IFdTX.LT.  ITXXJGO  TO  220 
I  ST-2 

UTEMP- ( DELTSP/XTPC ) *THOU 
ITFCP- ITFCP+JTEMP 
ITX-ITX-ITXX 
NPE< ICRIT)-NPEdCRIT)*l 
C  REPACK  THE  TARGET  ELMNT  STATE  DATA. 

220  ITY— 1 
230  ISG-1 

IFdTY.  LT.  0)  ISG— 1 
IUORD( IPP. JPP  >— ITY*10000+TSG*ITX 
I STATE (IPP, JPP)«ITFCP*100+ISTP*10+IST 
C  THIS  COMPUTED  GO-TO  SWITCHES  CONTROL  BACK  TO  MORE  LATERAL  (PERIMETER) 
C  CALCULATIONS  AS  REQUIRED. 

250  IFdRET-2)30.  300.  260 

C  IF  NOT  ALL  OF  THE  SMOLDERING  RANGE  HAS  BEEN  CONSIDERED  RETURN  TO  70. 
260  IF(NSQ.  LT.  NSQH)CO  TO  70 
GO  TO  60 

C  END  OF  THE  LOOPS  OVEfTTHE  SHOOTING  ELMNTS. 

300  IFdl.LT.  IVMX  )G0  TO  20 
II-IVMN-1 

IF<  JJ.  E<3.  12)00  TO  500 
IF< JJ.  LT.  JVMX)CO  TO  15 
500  RETURN 
END 
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SUBROUTINE  TEST ( I ) 


OBJECTIVE! S) 

(1)  EXAMINE  ALL  ELEMENTS  IN  THE  FLAMING  STATE  (STATE  3)  ON  SURF  I  TO 

(A)  UPDATE  THEIR  “FRACTION-  CONSUMED"  CLOCKS. ITFCP 

(B)  FIND  THOSE  ELMNTS  WHICH  ARE  NOW  DUE  TO  BURN  OUT  AND  SET 
THEM  TO  STATE  4.  CHARRED. 

(2)  FIND  THE  TOTAL  RATES  OF  HEAT.  SMOKE •  AND  CAS  RELEASE  FOR  ALL  MATLS 
IN  THE  FLAMING  STATE  BY  SUMMING  THE  VALUES  FOR  EACH  SURFACE  I. 

COMMENTS 

(1)  TEST  IS  CALLED  ONCE  FOR  EACH  FIRE  K  FOUND  ON  SURFACE  I 


COMMON/CNTRL/DELTAT. DELTSP. ECOFLG. IDELT. IDENT(20). IDTPRV. IPEMS. 

1  IPSPR,  IPAUX,  I  RATIO.  ISAVE,  ISCALE.  ITFIN,  ITIME.  ITIM2, 

2  ITSPRD.  NP ASS,  TF INAL,  IDBUG1,  EPSLN,  MAXITR,  MAXCUT, 

3  JCBSKP 

COMMON/FIRES/ AFM(7), ASM(7>. ISTATE(120. IS), ISTATS(9. 16. 22). 

1  I  WORD!  120,  13),  I  WORDS  ( 9,  16.  22).  NFLM!  71 .  NPYR  (7) . 

2  RGS! 10, 7). RSS(7). TOTGAS! 10), TOTSEM.  TRGF! 10), 

3  TRGS! 10), TRSF. TRSS. NCEI30). VITNR. TOTVIT.  RADFIR ( 30 ) , 

4  ACM! 7) , AF ( 30  > , AF I , AEXP, COMB (30) , DQK, FLML ( 30 ) , FSN1. 

5  FSN2,  FSN3. GAMMA! 30 ) ,  I BURN,  IF(600>.  I OMNI ,  IGMNJ.  IGMXI. 

6  IGMXJ.  IGNFIR,  !0NtJ(2.  100).  IGSN.  ISFIRE(30).  IVMAX(30>. 

7  IVMIN(30) ,  I VMN,  IVMX.  IXFIRE,  I  ZONE! 30 ) . JVMAX ( 30 ) , 

8  JVM  IN!  30 ) ,  JVMN,  JVMX,  K.  NFE!  30) ,  NFIRES,  NIJC.  NIJSQ, 

9  NPE  (  30 ) .  NSFL  (  7 ) .  OMEGA  <  30  ) ,  PDH,  P  I GN,  RF(20.  4),  RFS(7,  4), 

1  RFWS. RGF! 10. 7), RGFK(IO), RHOZ ( 30 ) . RSF ! 7 ) .  RSFK,  TDQ. 

2  TBURNI,  UZ(30),  YZ(30).  ZB  (30),  RHOEFG.  CHIEFG  (11). 

3  FLOWIN.  FLWOUT,  TEFG,  IFRVNT , GENRAT! 11 ),  TDQMTL ( 7 ) , 

4  TP ( 7) ,  TPC ( 7 ) 

COMMON/CASES/CHIL! 11.  3 >. CHIU! 11,  3).  CP,  NGAS (11),  NSPCS,  PAMB.  PF ( 3 ) , 

1  RHOAM, RH0L13). RH0U(3). TAM. TL(3). TU ( 3 ) , VOLL ( 3 ) , 

2  VOLU ( 3 ) .  ZD ( 3 ) .  XTHEN! 120 ) , WMOLEC ( 1 1 ) ,  TWO(lOl). 

3  JCOR ( 120 ) 

C0MM0N/CMTRY/IMATL!20).  IMATS!7>,  IMTLPI4),  IMAX(30>.  IMINOO). 
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IRAY! 116). IRAYS ( 22 ) , JMAX ( 30 ) , JMIN! 30) , LSN, MAXELI. NS, 
CH,  CL ( 4 )  .  CW,  DUS.  HSTS.  IARX(40.  13).  IARY(40,  12).  ICLL. 
ICLRT  I  END,  IFIRL,  IFIRR,  ILSTL-  ILSTR,  I0NE(9), 

I5SWLK9.  10),  ISSWLJ ( 9,  10).  ISSWRI  (9,  10),  ISSURJ(9.  10). 

I SWSL  (13,8),  I SWSR  ( 1 3,  8 > ,  ISTART,  NPROJ,  IPJUL,  IPJLL. 
IPJUR.  IPJLR.  JEND.  JONE ( 9  > .  JSTART , NJS. NSO, NV. SGWD(9>, 
SL.  SWD<20) . VN!20, 3 ) . VENTH! 24) . VENTW! 24 ) , VENTT ( 24) . 

XMN  ( 30 ) ,  XMX !  30) ,  XCOR  ( 9 ) ,  YCOR  ( 9) ,  ZOO),  SSCUD.  TVSC. 

HT 1 ,  HT2,  HT3,  HT4  (10),  NSSTS.  SLSW,  SX  ( 30 ) .  SZ  ( 30 ) . 

CNCTNS ( 24 ) , NCOMPS,  IFRCMP, FL0W(24),  INTO ( 24 ) . VTOTAL ( 4 ) . 
FHMIN 

COMMON/MATLS/TABX  (18.  7.  6),  TABY  ( 18.  7.  6).  NTXG,  FOX  I,  RADTAB  (  7 ) ,  RADI. 

1  FOX (7),  NMATLS, DQI. DGM ( 7 ) , GAM I , GTAB ( 7 ) ,  ITF(20>.  IRAMPT, 

2  ITFC ( 20) ,  ITFCS ( 7  > .  ITFS<7>,  ITP(20>.  ITPC(20>,  ITPCS(7). 

3  ITPE ( 20 ) ,  ITPES < 7 ) ,  ITPS(7>, GCI. OP (7). QTA8(7),  RHOI. 

4  RHOM! 7 ) .  RSI,  RTAB ( 7 ) , RTGI ( 10), UTAB ( 7 ) , CNDCTY ( 7 ) ,  XMUI. 

3  XMF I ,  TKNS <  7  > , TSL ( 30,  2,  4 ) ,  TSP (2,2.4), CPM ( 7 ) . WMMTL ( 7 ) . 

6  WMIGF, TKNSIN(7) 

COMMON/PARAMS/GRAV,  PI,  OTR,  ROAS.  SIGMA,  SOD,  THOU,  TOL.  EC.  EP 
COMMON/RADTN/ALPC, ABSCF ( 30 ) . EB,  GC(2> 

COMMON  /PRTCMN/  ASRFUZ ( 22, 4 > , ASRFLZ ( 22,  4 ) ,  CVFLWU < 22- 4 ) , 

*  CVFLWH22,  4),  RDFLWU(22,  4),  RDFLWL'22,  4) 

*  VTFLWV ( 24 , 2  > , VTFLWE ( 24 , 2 ) . FB VDOT  30). 

*  FBSDQT < 1 1 , 30 ) , FBQDOT ( 30 ) , FRENTR ( jO ) 

COMPUTE  THE  ELMNT  AREA,  SA.  AND  SELECT  THE  MAX  AND  MIN  I  AND  J  VALUES 
FOR  THIS  FIRE.  K. 
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SA-SQD*SQD 
1 1  —  I VM I N  ( K  ) 

I2-IVMAX (K> 

Jl-JVMIN(K) 

J2-JVMAX(K> 

C  ITEST  IS  A  FLA©  TO  INDICATE  IF  IT  HAS  BEEN  DISCOVERED  THAT  THE  I8N  SRC 
C  FIRE  HAS  BURNED  OUT.  ITEST  -  1  ->  BURNED  OUT. 

ITEST-0 

C  START  OF  TWO  NESTED  LOOPS  TO  SEARCH  THE  ELMNTS  OF  THIS  FIRE.  NOTE  THAT 
C  ALL  ELMNTS  WITHIN  THE  “BOX"  FORMED  BY  II,  12,  Jl,  AND  J2  WILL  NOT 
C  NECESSARILY  BE  IN  STATE  3. 

DO  200  1 1-11. 12 
DO  190  JJ-J1.J2 

C  IRET  IS  A  FLA©  USED  AS  FOLLOWS:  IRET-1  ->  ELMNT  IN  STATE  3  (AND  NOT 
C  OUST  IGNITED  ON  THIS  PASS)  AND  DOES  NOT  NEED  SPECIAL  HANDLING  BECAUSE 
C  IT  IS  AN  I«N  SRC  ELMNT i  IRET-2  ->  AS  ABOVE-  BUT  ELMNT  IS  PART  OF  I©N 
C  SRC  FIRE-  IRET-3  ->  ELMNT  NOT  IN  STATE  3. 

IRET-3 

CALL  CVOUTUI.  JJ.  i,  1ST,  ISTP,  ITFCP) 

C  IF  ELMNT  IS  NOT  IN  STATE  3  OR  HAS  JUST  BEEN  SET  TO  3  ABOVE.  SKIP  IT  BY 
C  JUMPING  TO  END  OF  LOOP 

IF<  1ST  NE.  ISTP.  OR.  1ST.  NE.  3)  ©0  TO  190 
C  ICNFIR-2  «>  THIS  FIRE  CONTAINS  ION  SRC  ELMNTS.  I-ICSN  ■>  CURRENT  SURF 
C  IS  THE  ONE  CONTAINING  THE  IGN  SRC.  IN  EITHER  CASE  CHECK  TO  SEE  IF  THIS 
C  ELMNT  IS  PART  OF  THE  IGN  SRC  FIRE  BY  JUMPINO  TO  STMT  8. 

IF <  IGNFIR.  EG.  2  OR.  I  EG.  IGSNIGO  TO  8 
I  RET  —  1 
GO  TO  20 

C  CHECK  THE  INDICES  OF  THIS  ELMNT  AGAINST  THE  LIST  OF  IGN  SRC  ELMNT 
C  INDICES  IF  A  MATCH  IS  FOUND  SET  IRET  -2  FOR  USE  BELOW. 

8  DO  10  KJ-l.NIJSO 

IF(  II.  NE.  IONIJ(  1,  KJ>  OR.  JJ.  NE.  IGNI J( 2.  KJ )  > GO  TO  10 
GO  TO  12 
10  CONTINUE 

IF<  IGNFIR.  NE.  2) IRET-1 
GO  TO  20 

12  IF< IGNFIR. EG. 2) IRET-2 

C  TEST  IF  CURRENT  SURF  IS  A  LINING  SURF  OR  A  SEAT.  IN  EACH  CASE- UNPACK 
C  IWORD <  S )  TO  GET  AT  ITX,  THE  TIME- IN-ST ATE  CLOCK. 

20  IF(I.GT  LSN)  GO  TO  30 
KX-IRAY(II) 

KTEHP-IMATL(KX) 

XTFC-ITFC(KX) 

CALL  CUORDUWORDIII.  JJ>.  ITX.  ITY) 

00  TO  40 
30  IS- I -LSN 

KX— IRAYS  <  JJ ) 

KTEMP-IMATS(KX) 

XTFC-ITFCS(KX) 

CALL  CWORD(  I  WORDS  (  IS,  II.  JJ).  ITX,  ITY) 

C  USE  FLAG  IRET  TO  SELECT  METHOD  OF  UPDATING  ITX  AND  TESTINO  FOR  BURN 
C  OUT  THE  DIFFERENCE  IS  THAT  FOR  IGN  SRC  ELMNTS  (IRET-2)  THE  FRACTION— 

C  CONSUMED.  ITFCP.  IS  FIXED  IRRESPECTIVE  OF  CHANGES  IN  FLUX  LEVEL. 

40  IF< IRET-2)43, 120, 190 

C  UPDATE  FRACTION-CONSUMED  AND  TIME-IN-STATE  CLOCKS  FOR  NON-IGN  SRC 
C  ELMNTS. 

43  I TEMP— ( DELTSP / XTFC  >  *THOU 

ITFCP- ITFCP* 1TSMP 
IF< ITFCP  GT. 1000)00  TO  35 
IDL-DELTSP 
ITX-ITX+IDL 
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GO  TO  140 

C  UPDATE  TIME-IN-STATE  CLOCK  POP  ION  SRC  ELMNTS 
120  IDL-DELTSP 
ITX-ITX+IDL 

IFdTX.LT  ITFCP)  00  TO  140 

C  ELMNT  HAS  BURNED  OUT,  SET  STATE  TO  4,  ZERO  CLOCKS,  AND  UPDATE  COUNTERS 
39  IST-4 
ITX-0 
ITY-0 

IFd.  OT.  LSN)  KX-I 
NFE<KX)=NFE(KX)-1 
NCE<KX)»NCE(KX)+1 

C  TEST  IF  THIS  IS  AN  ION  SRC  ELMNT 
IF (  IRET.  EQ.  2)  GO  TO  SO 

C  ADJUST  THE  HEAT,  SMOKE,  AND  OAS  RELEASE  AND  OXYGEN  CONSUMPTION  RATES 

C  TO  REFLECT  THE  BURN  OUT  OF  THIS  NON-ION  SRC  ELMNT 

D0K»DQK-SA*DQM ( KTEMP > 

TDQMTL ( KTEMP >  »  TDQMTL < KTEMP >  ♦  QTR  *  DQM( KTEMP) 

RSFK-RSFK-SA*RSF ( KTEMP ) 

V  r  TNR-V I TNR -SA*  DOM  <  K  TEMP )/ FOX  <  K TEMP ) 

DO  60  IG-l.NTXG 

60  RCFK<  IGl-RGFKI  10 ) -SA*RGF  dO.  KTEMP) 

GO  TO  140 

C  ADJUST  THE  HEAT,  SMOKE,  AND  OAS  RELEASE  AND  OXYGEN  CONSUMPTION  RATES 

C  TO  REFLECT  THE  BURN  OUT  OF  THIS  ICN  SRC  ELMNT. 

SO  DOK-DQK-SA*DQI 

RSFK«RSFK-SA*RS I 
V I TNR— V I TNR  — S A#DQ I / FO  X I 
DO  130  IG-l.NTXC 

130  RGFKdG)«RGFKdG)-SA*RTGI ( 10) 

C  SET  ITEST  »  1  TO  SIGNAL  THE  BURN  OUT  OF  THE  ENTIRE  IGN  SRC  FIRE  ONE 
C  IGN  SRC  ELMNT  IS  ENOUGH  TO  INDICATE  THIS  SINCE  ALL  IGN  SRC  ELMNTS  ARE 
C  ASSUMED  TO  HAVE  THE  SAME  BURNING  TIME 
I TEST- 1 

C  REPACK  ISTATE,  ISTATS.  IWORD.  AND  IWORDS  AS  APPROPRIATE  FOR  SEATS  OR 
C  LININC  SURFACES 
140  I TEMP— I TFCP* l 00+ I STP* l 0* I ST 
ISO-1 

IF (  ITY.  LT.  0 )  ISO— 1 
IFd.  OT.  LSN)  GO  TO  130 
ISTATE dl.  JJ )  —  ITEMP 
I WORD < II, JJ)-ITY*10000+ISG*ITX 
GO  TO  190 

130  ISTATSdS,  II,  JJl-ITEMP 

IWORDS  < IS,  II, JJ)-ITY*10000+ISG*ITX 
C  END  OF  DOUBLE  LOOP  SEARCHING  ELEMENTS  OF  THE  FIRE  K. 

190  CONTINUE 
200  CONTINUE 
C 

C  SAVE  THE  RATE  OF  GENERATION  OF  HEAT  AND  TRACE  SPECIES 
C  FOR  THIS  FIRE  K  FOR  PRINTING  IN  SUBR  OUTPUT 
C 

FBQDOT(K)  ■  DQK 
DO  203  IG-l.NTXG 
203  FBSDOT <  10*9,  K )  -  RGFKdG) 

FBSDOT ( NTXG+6,  K )  -  RSFK 
FBSDOT ! 2, K)  -  VI TNR 

C  TEST  TO  FIND  IF  THE  IGN  SRC  FIRE  HAS  BURNED  OUT  IF  SO  SET  THE  FLAG 
C  IBURN  TO  ZERO,  THE  IGN  FIRE  AREA  TO  ZERO,  AND  THE  ICN  SURF  TO  A 
C  HARMLESS  NUMBER 

IFdTEST  EQ.  0)  GO  TO  210 
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IGSN-999 
I BURN-0 
AFI-O. 

C  UPDATE  THE  TOTAL  HEAT,  ( FLAM  I NO )  SMOKE ,  AND  (FLAMING)  GAS  RELEASE 
C  RATES  AND  OXYGEN  CONSUMPTION  RATES  BY  THE  CHANGES  FOUND  IN  THIS  SUBR 
210  TDQ-TDQ+DQK 

TRSF-TRSF+RSFK 
TOTVIT-TOTVIT+VITNR 
DO  220  IG-l.NTXG 
220  TRGF  < IG ) -TRGF ( IG ) +RGFK ( IG ) 

C  RESET  IGNFIR  FLAG  TO  ZERO.  IT  WILL  BE  SET  BACK  TO  2  IF  MORE  IGN  SRC 
C  ELMNTS  ARE  DISCOVERED  DURING  SUBSEQUENT  SEARCHES  IN  THIS  SET  OF  FLAME 
C  SPRD  CALCS.  THIS  IS  DONE  IN  SUBR  FIRE. 

IF< IGNFIR.  EQ.  2)  IGNFIR-0 

RETURN 

END 
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subroutine  elem 


c  - 

C  OBJECTIVE < S ) 

C  <1)  SCANS  ALL  LINING  AND  SEAT  SURFACE  ELEMENTS  TO  MAKE  APPROPRIATE 
C  CHANGES  OF  STATE  FOR  ALL  TRANSITIONS  EXCEPT  (A)  ELMNTS  SET  TO 

C  STATE  3  (FLAMING)  OR  STATE  6  (HEATING  BY  FLAME  CONTACT)  IN  SUBRS 

C  COND. CONDS. FCON,  AND  FCONSi  (B)  ELMNTS  SET  TO  STATE  2  (SMOLDERING) 

C  OR  STATE  5  (HEATING  BY  RADIATION  ONLY)  BY  SUBRS  PVOL  AND  PVOLSi 

C  AND  (C>  FLAMING  ELMNTS  BURNING  OUT  (STATE  3  ->  STATE  4)  DONE  IN 

C  SUBR  TEST. 

C  (2)  UPDATE  THE  "ELAPSED  TIME  IN  THIS  STATE"  CLOCK,  ITX,  FOR  THOSE 
C  ELMNTS  IN  STATES  WHERE  THIS  TIME  IS  KEPT  (STATES  2, 3, AND  6). 

C  (3)  UPDATE  THE  “FRACTION  CONSUMED"  CLOCK,  ITFPC,  FOR  ELMNTS 
C  IN  STATE  2. 

C  COMMENTS 

C  (1)  THE  INCREMENT  OF  ITX  IS  THE  LARGE  TIME  STEP,  1.6.  THE  TIME  BETWEEN 
C  PASSES  THRU  THE  FLAME  SPREAD  CALCS. 

C  (2)  THIS  SUBR  HAS  A  VERY  COMPLICATED  TRANSFER  STRUCTURE-  CAREFUL 
C  ATTENTION  SHOULD  BE  PAID  TO  THE  COMMENTS.  RE-CODING  IS  ADVISED. 

C  (3)  POSSIBLE  STATE  TRANSITIONS  THAT  MAY  OCCUR  ARE;  3  ->  1 ,  2  ->  4, 

C  2  ->  7,  AND  7  ->  4. 
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COMMON/CNTRL/DELTAT,  DELTSP, ECOFLG,  IDELT-  IDENTI20),  IDTPRV,  IPEMS. 

IPSPR,  IPAUX,  IRATIO,  ISAVE,  ISCALE,  ITFIN.  ITIME-  ITIM2, 
ITSPRD,  NP ASS,  TFINAL,  IDBUG1,  EPSLN,  MAX ITR,  MAXCUT, 

JCBSKP 

COMMON/FIRES/ AFM( 7 ) ,  ASM ( 7 ) ,  ISTATE1120,  13),  ISTATS(9,  16.  22). 

I  WORD  ( 120,  13),  1  WORDS  ( 9,  16-  22) .  NFLM  ( 7 ) ,  NPYR(7), 

RGS (  10,  7),  RSS(7),  TOTGAS(  10),  TOTSEM,  TRGF(  10). 

TRGS<  10),  TRSF,  TRSS,  NCE(30>,  VITNR,  TOTVIT,  RADFIROO), 
ACM( 7 ) ,  AF ( 30 ) . AFI -  AEXP , C0MB(30) , DQK,  FLML ( 30 ) , FSN1 , 
FSN2,  FSN3,  GAMMA  (30),  I  BURN,  IF(600>,  IGMNI,  IGMNJ,  IGMXI, 
IGMX J,  IGNFIR,  I6NI J(2,  100),  IGSN,  ISFIRE(30),  IVMAXOO), 

I VM I N ( 30 ) ,  I VMN,  IVMX,  IXFIRE,  I  ZONE ( 30 ) , JVMAX ( 30 ) , 

JVM  I N  <  30 ) .  JVMN,  JVMX.  K,  NFE  (  30 ) ,  NFIRES.  NIJC.  NIJSO. 

NPE  ( 30) ,  NSFL  ( 7 ) ,  OMEGA  (30 ) .  PDH,  P ICN,  RF(20,  4),  RFS(7,  4), 
RFWS,  RGF(  1-0.  7),  RCFR(  10),  RH0Z(30>.  RSF(7>,  RSFK,  TDQ, 
TBURNI, UZ (30) , YZ ( 30) , ZB ( 30 ) .  RHOEFG,  CHIEFC( 11 ), 

FLOWIN.  FLWOUT, TEFG,  IFRVNT. GENRAT (11),  TDGMTL ( 7 ) , 

TP  ( 7 ) ,  TPC  ( 7 ) 

COMMON/GASES/CHIL  (  11,3).  CHIU(  11,  3).  CP,  NOAS(  11  ),  NSPCS.  PAMB.  PF(3), 
RHOAM, RHOL ( 3 ) , RHOU  <  3 ) , TAM,  TL ( 3 ) , TU ( 3 ) , VOLL ( 3 ) . 
VOLU(S),  ZD<  3),  XTHEN (  120).  WMOLEC  (  11 ),  TWO(  101 ), 

JCOR ( 120) 

COMMQN/GMTRY/ IMATL ( 20  > ,  IMATS(7).  IMTLP<4>,  IMAX(30),  IMIN(30>, 


1  IRAY  ( 1 16).  IRAYS  ( 22 ) ,  JMAXOO),  JMIN(30>.  LSN,  MAXELI,  NS, 

2  CH,  CL  ( 4 ) ,  CW.  DWS,  HSTS,  IARX(40,  13),  IARY(40,  12),  ICLL, 

3  ICLR.  I  END,  IFIRL,  IFIRR,  ILSTL,  ILSTR,  I0NE(9), 

4  ISSWLK9,  10).  I5SWL  J  ( 9,  10).  ISSWRI  (9,  10),  ISSWRJ(9.  10). 

3  ISWSLt  13,  8),  ISWSR(  13,  8),  ISTART,  NPROJ,  IPJUL.  IPJLL, 

6  IPJUR.  IP  JLR,  JEND,  JONE ( 9 ) ,  JST ART,  NJS-  NSG,  NV.  SGWD ( 9 > , 

7  SL,  SWD  ( 20 ) ,  VN(  20,  3).  VENTH(24),  VENTW(24),  VENTT(24), 

8  XMN ( 30 ) , XMX ( 30  > , XCOR ( 9 ) . YCOR ( 9 ) ,  Z ( 30 ) , SSGWD, TVSG- 

9  HT 1 ,  HT2.  HT3,  HT4  (10),  NSSTS,  SLSW,  SX  (  30 ) ,  SZ  (  30 ) , 

1  CNCTNS ( 24 ) , NCOMPS, IFRCMP, FL0W(24>. INTO ( 24 ) . VTOTAL ( 4 ) , 

2  FHMIN 

COMMON/MATLS/TABX  < 18, 7, 6), TABYt 18, 7, 6), NTXG, FOX  I, RADTAB ( 7 ) , RADI . 

1  FOX ( 7 ) , NMATLS, DQI , DGM ( 7 ) , GAM I , GTAB ( 7  > ,  ITF(20>,  IRAMPT, 

2  I TFC ( 20 ) ,  ITFCS ( 7  > ,  ITFS(7>,  ITP(20>.  ITPC(20>.  ITPCS(7), 

3  ITPE  ( 20 ) .  ITPES  <  7 ) ,  ITPS<7>,  QCI,  OP  (7),  QTAB  (  7  ) .  RHOI. 

4  RHOM( 7 ) , RSI, RTAB ( 7 ) , RTGI ( 10) . UTAB(7) . CNDCTY(7) ,  XMUI . 
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3  XMFI ,  TKNS  ( 7 )  i  TSL<30.  2.  4),  TSP(2.  2.  4> .  CPM( 7 ) ,  WMMTL ( 7) . 

6  WMICF,  TKNSIN(7> 

COMMGN/PARAMS/GRAV.  PI.  QTR,  RfiAS.  SIGMA.  SOD.  THOU.  TOL.  EC.  EP 
COMMON/RADTN/ALPC. ABSCF ( 30 ) . EB.  QC <2 ) 

C  SET  ITM  TO  THE  LARQE  TIME  STEP  IN  SECONDS  (NOT  MILLISECONDS) 

C  ITYP  IS  A  FLAG  TO  INDICATE  WHETHER  LINING  SURFS  OR  SEATS  ARE  BEING 

C  CONSIDERED.  ITYP  -1  ->  LINING  SURFS. 

ITH-ITSPRD/1000 

1-0 

ITYP-1 

C  STMTS  10  THRU  40  FORM  A  LOOP  TO  SEARCH  OVER  ALL  LININO  SURFACE  ELMNTS. 
C  THE  ELEMENT  STATES.  FLAGS.  AND  CLOCKS  ARE  UNPACKED  WITH  SUBRS  CVOUT 
C  AND  CWORD.  WHEN  THESE  VALUES  ARE  FOUND  TRANSFER  GOES  TO  STMT  100  FOR 

C  CLOCK  AND  FLAG  UPDATING  AND  ANY  NECESSARY  STATE  TRANSITIONS.  CONTROL 

C  IS  RETURNED  INTO  THE  LOOP  AT  STMT  20. 

C  IEXTO  KEEPS  THE  APPROPRIATE  VALUE  OF  ITPE(I).  THE  TIME  TO  STOP 
C  PYROLYSIS  FOR  THE  MATERIAL  OF  SURFACE  I.  WHICH  WILL  BE  USED  FOR  7->4 
C  TRANSITIONS 
10  I-I  +  l 

IF <  I.  QT.  LSN)  GOTO  SO 
U-IMINd) 

I2-IMAXCI) 

Jl-l 

U2-13 

IEXTO-ITPE(I) 

DO  40  II-I1.  12 
DO  30  J-J1.J2 

CALL  CVOUTdl,  J.  I.  1ST.  ISTP.  ITFCP) 

CALL  CUORD( I WORD < 1 1. U) .  ITX.  ITY) 

GOTO  100 
20  CONTINUE 

30  CONTINUE 

40  CONTINUE 

GOTO  90 

C  STMTS  SO  THRU  80  FORM  A  LOOP  TO  SEARCH  OVER  ALL  SEAT  SURFACE  ELMNTS. 

C  UNPACK  THE  DATA.  AND  TRANSFER  TO  100  AS  EXPLAINED  ABOVE.  IEXTO  NOW 
C  HOLDS  THE  APPROPRIATE  VALUE"  OF  ITPES(I) 

SO  ITYP -2 

IS-I-LSN 

11- IMIN(I) 

12—  IMAX ( I ) 

Jt-1 

J2-22 

DO  SO  J-U1.J2 
UK-IRAYS(J) 

IEXTO- ITPES( UK) 

DO  70  X 1*11. 12 

CALL  CVOUT <  II.  U.  I.  1ST,  ISTP,  ITFCP) 

CALL  CWORD< IWORDSC IS.  II. J).  ITX. ITY) 

GOTO  100 
*0  CONTINUE 

70  CONTINUE 

■0  CONTINUE 

C  TEST  TO  FIND  IF  ALL  SURFACES  HAVE  BEEN  EXAMINED. 

90  IFd.LT.  NS)  GOTO  10 

GOTO  300 

C  THE  FOLLOWING  STMT  SEPARATES  ELMNT  TYPES  1, 3. AND  4  FROM  2.  S,  6.  AND  7. 

C  TRANSITIONS  FOR  TYPES  1.  3.  AND  4  ARE  NOT  CONSIDERED  BY  THIS  8UBR 

100  GOTO  (220.  101.  220.  220.  101.  101.  101),  1ST 

101  CONTINUE 

C  IF  THE  PRESENT  STATE  AND  PREVIOUS  STATE  ARE  EQUAL  TRANSITIONS  ARE 
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C  ALLOWED.  OTHERWISE  ONLY  CLOCK  AND  FLAG  UPDATING  IS  ALLOWED. 

102  IF< 1ST  EQ.  ISTP )  GO  TO  120 

C  ELEMENTS  SET  TO  STATE  7  IN  THE  LAST  FLAME  SPREAD  PASS  ARE  SKIPPED 
IF (  1ST.  EQ.  7)  GO  TO  220 

C  UPDATE  THE  ITX  CLOCK  FOR  ELMNTS  OF  TYPES  2.  5.  AND  6  HAVING  ISTP.  NE.  1ST 
110  ITX-ITX+ITM 

C  IF  PRESENT  STATE  IS  6  REPACK  IMMEDIATELY)  IF  IT  IS  2  OR  S  SET  ITY-+1 
C  (FORCES  9->l  OR  2->7  TRANSITION  ON  NEXT  PASS  IF  NOT  RESET  IN  PVOL  OR 
C  PVOLS)  AND  THEN  REPACK 

IF <  1ST.  EQ.  6)  GO  TO  210 
ITY-+1 
GO  TO  210 

CONTROL  REACHES  THE  FOLLOWING  STMT  ONLY  FOR  ELMNTS  IN  STATES  2. 3. 6. 

AND  7  WITH  ISTP  -  1ST.  DISPOSITION  IS  AS  SHOWN 

STATE  2  ->  GO  TO  140  TO  CHECK  FOR  POSSIBLE  TRANSITION  TO  7 

STATE  3  ->  GO  TO  140  TO  CHECK  FOR  POSSIBLE  TRANSITION  TO  1 

STATE  6  ->  GO  TO  110  FOR  UPDATE  OF  ITX  AND  REPACK 

STATE  7  ->  GO  TO  122  TO  CHECK  FOR  POSSIBLE  TRANSITION  TO  4 

120  GO  TO  (122.  140.  122.  122.  140.  110.  122).  1ST 
122  ITX-ITX+ITM 
ITEST-IEXTC 
GO  TO  170 

C  ITY  . LE.  ZERO  INDICATES  THAT  THE  ELMNT  SHOULD  NOT  TRANSITION  THIS  PASS 
140  IF(ITY.  LE.  0)  GO  TO  160 

C  ITY  .  GT.  ZERO  INDICATES  TRANSITION  TO  3->I  OR  2->7  IS  TO  BE  MADE  NOW 
ITX-0 
ITY-0 

IF(  1ST.  EQ.  2)  GO  TO  130 
IST-1 
GO  TO  210 
130  I  ST-7 

GO  TO  210 

C  UPDATE  ITX.  SET  ITY  TO  +1  TO  NOMINATE  THIS  ELMNT  FOR  TRANSITION  ON  THE 
C  NEXT  PASS.  AND  IF  THE  PRESENT  STATE  IS  NOT  2  GQ  TO  210  FOR  REPACKING 
160  ITX-ITX+ITM 
ITY— 1 

C  FOR  STATE  2  UPDATE  ITFPC  AND  CHECK  TO  SEE  IF  THIS  "FRACTION  CONSUMED" 

C  X1000  EXCEEDS  1000.  IF  SO  TRANSITION  TO  STATE  4..  CHARRED.  ITYP  -  2 
C  INDICATES  THAT  ELMNT  IS  FROM  A  SEAT  GROUP 
IF1IST.  NE.  2)  GO  TO  210 
IF(  ITYP.  EQ.  2)  00  TO  162 
XTPC-ITPC ( I ) 

GO  TO  163 

162  XTPC— ITPCS(UK) 

163  KTEMP- ( DELTSP / XTPC ) *THOU 
I TFCP- I TFCP +KTEMP 

IF( ITFCP. LE.  1000)  GO  TO  210 
GO  TO  173 

C  CONTROL  REACHES  STMT  170  ONLY  IF  THE  ELMNT  IS  IN  STATE  7 
C  TEST  TO  FIND  IF  TRANSITION  TO  STATE  4  SHOULD  NOW  OCCUR  BY  COMPARING 
C  ITX  TO  THE  TIME  TO  STOP  PYROLYZINC  KEPT  IN  ITEST 
170  IF( ITX.  LT.  ITEST)  GO  TO  210 

C  MAKE  THE  2->4  TRANSITION  OR  THE  7->4  TRANSITION.  DEPENDING  ON  HOW  STMT 
C  173  IS  REACHED.  NPE(I).  THE  NUMBER  OF  PYROLYZINC  ELMNTS  ON  SURF  I,  IS 
C  DECREASED  BY  1.  AND  NCE(I).  THE  NUMBER  OF  CHARRED  ELMNTS  ON  I.  IS 
C  INCREASED  BY  1. 

173  NPE< I )-NPE( I )-l 
190  I ST-4 

NCE  < I ) -NCE ( I >  + 1 

ITX-0 

ITY-0 
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C  THE  NEXT  10  STMTS  REPACK  ISTATE  AND  I WORD  OR  I STATS  AND  IWORDS  WITH 
C  THE  NEW  ELMNT  DATA.  ISO  USED  TO  MAKE  SIGN  OF  ITX  COMPATIBLE  WITH  ITY. 
210  ITEMP-ITFCP*100+ISTP*10fIST 
ISC-1 

IF<  ITY.  LT.  0)  ISC— 1 
ITK«ITY*10000+I80»ITX 
IF< ITYP. EO.  2)  CO  TO  213 
ISTATE ( 1 1.  J)-ITEMP 
I WORD < 1 1>  J)-ITK 
00  TO  220 

213  ISTATS<IS. II, UI-ITEMP 
IWORDSdS.  II.  J)-ITK 

STMT  220  DIRECTS  CONTROL  BACK  TO  THE  LOOP  SEARCHING  LINING  SURFS  OR 
SEATS  AS  DETERMINED  BY  ITYP:  ITYP-1  ->  LINING  SURF.  -2  ->  SEAT. 

220  IF< ITYP-1)  60.20.60 
C 

300  CONTINUE 
RETURN 
END 
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SUBROUTINE  APR 


OBJECTIVE ( S ) 

<1>  COMPUTE  TOTAL  AREAS  OP  EACH  MATERIAL  CURRENTLY  FLAMING.  SMOLDER  I NO 
AND  CHARRED. 

<S>  COMPUTE  TOTAL  RATE  OF  SMOKE  EMISSION  BY  ALL  MATERIALS  (SMLORO 

AND  FLAMING)  AND  TOTAL  RATE  OF  EMISSION  OF  EACH  GAS  BY  ALL  MATLS 
< SMLDRNG  AND  FLAM I NO) 

COMMENTS 

<1>  RATES  OF  SMOKE  AND  GAS  EMISSION  FOR  FLAMING  MATERIALS  (BY  MATL 
TYPE)  IS  COMPUTED  UPSTREAM  BY  SUBR  TEST  AND  ADDED  TO  THE  SMLDRO 
RATES  COMPUTED  HERE. 


COMMQN/CNTRL/DELTAT. DELTSP. ECOFLO.  IDELT. I DENT (30) < IDTPRV. IPEMS. 

1  IPSPR. IPAUX, IRATIQ.  ISAVE,  ISCALE.  ITFIN.  ITIME.  ITIMZ. 

3  ITSPRD. NPASSi TFINAL. IDBUG1.  EPSLN.  MAXITR.  MAXCUT. 

3  JCJSKP 

COMMON/FIRES/ AFM(7).  ASM(7>.  I STATE ( 120. IS).  ISTATS<9.  16.33). 

1  I WORD ( 120. IS). IW0RDS(9. 16.  32).  NFLM (7).NPYR(7). 

3  RQSdO. 7).  RSS<7).T0TGAS<10).  TOTSEM.  TROF(IO). 

3  TROS( 10). TRSF. TRSS.  NCE(30).  VITNR.  TOTVIT.  RADFIR (30) . 

4  ACM < 7 ) . AF(30). API. AEXP. COMB (30). DQK.  FLMLC30).  FSN1. 

5  FSN3.  FSN3.  OAMMAOO),  I  BURN.  IF(600>.  I  OMNI.  IOMNJ.  IOMXI. 

6  IQMXJ. IGNF1R. I0NIU(3. 100). IQSN. ISFIRE(30). IVMAX(30>. 

7  IVMIN(30 ) .  IVMN.  IVMX,  IXFIRE.  IZONEOO).  JVMAX(30). 

8  WHIN  (30) .  JVMN.  JVMX.  K.  NFE(30) .  NFIRES.  NI JC.  NI  JSQ. 

9  NPE(30).  NSFL(7).  OMEOAOO).  PDH.  PIGN.  RF(20.  4).  RFS(7.  4) 

1  RPU8.  ROF( 10. 7).  RGFK( 10).  RHQZ(30). RSF(7).  RSFK.  TOO. 

2  TBURNI.  UZ ( 30) • YZ (30).  ZB (30) ,  RHOEFO.  CHIEFOC 1 1 ) . 

3  FLOW IN.  FLWOUT.  TEFO,  IFRVNT .  GENRAT (11),  TDQMTL ( 7 ) , 

4  TP  ( 7  ) .  TPC  ( 7 ) 

COMMON/OASES/CHIL (11.  S).  CHlUdl,  S),  CP.  N0A3(  1 1  >.  NSPCS.  PAMB.  PF(S). 

1  RHOAM, RHOL(S), RHOU(S) . TAM.  TL(S) .  TU( 3) .  VOLL( S) . 

2  VOLU(S). ZD(5), XTHEN( 120),  WHOLEC ( 1 1 ) .  TWO( 101 >. 

3  JCOR ( 120) 

C0MM0N/0MTRY/IMATL(20>.  IMATS<7). IMTLP<4).  IMAX(30>.  IMIN(30>. 

1  IRAY(114).  IRAYS(22).  JMAX(30).  JMINOO),  LSN.  MAXELI.  NS. 

2  CH.  CL ( 4 ) >  CW.  DW8.  HSTS.  IARX(40.  IS).  IARY(40.  12).  ICLL. 

3  ICLR,  1END. IFIRL. IF1RR. ILSTL.  ILSTR.  I0NE(9). 

4  I8SULK9.  10),  1S8WLJC9.  10).  I8SWRK9.  10).  ISSWRJ<9.  10). 

5  ISWSLdS.S),  ISW8R(  IS.  8).  I  START.  NPROJ,  IPJUL,  IPJLL, 

6  IPUUR.  IPJLR.  VEND.  J0NE(9).  JSTART.  NJS,  NSO.  NV.  S0MD(9), 

7  SL,  8WD(30),  VN(20.  3).  VENTW(24>.  VENTVK24),  VENTT(24), 

8  XMN(30>.  XMX  (30) .  XC0R(9) .  YC0R(9) .  Z(30> .  S80WD.  TVSO. 

9  HT1,  HT2,  HT3.  HT4( 10) . NSSTS. SLSU. SX (30) . SZ ( 30) . 

1  CNCTNS ( 24 ) , NCOMPS.  IFRCMP.  FL0W(24>,  INTO (24), VT0TAL(4) , 

2  FHMIN 

C0MM0N/MATL8/TABX ( 18,  7. 6). TABY( 18. 7, 6) . NTXG. FOX  I,  RADTAB(7). RADI. 

1  FOX ( 7 ) ,  NMATLS.  DO I .  DOM ( 7 ) .  GAM I .  OTAB ( 7 ) .  ITF(30).  IRAMPT. 

2  ITFC (20) .  ITFCS(7>. ITFS(7>,  ITF(20). ITPC(20), ITPCS(7>. 

3  ITPE(20). ITPES(7>. ITPS(7> .  OCI.  0P(7),  OTAB (7) .  RHOI. 

4  RH0M(7).  RSI.RTAB(7).  RTGK10).  UTA8(7).  CNDCTY(7).  XMUI. 

5  XMPI,  THNS ( 7 ) ,  TSL ( 30.  2.  4>,TSP(2,  2,  4 ) ,  CPM ( 7 ) .  WHMTL ( 7 ) , 

6  WMIGF. TKN8IN(7) 

COMMON/P ARAMS/GRAV.  PI.  OTR,  ROAS.  SIGMA.  SOD.  THOU,  TOL.  EC.  EP 
COMMON/RADTN/ALPC. A9SCF(30) . EB.  GC (2) 

DIMENSION  NCM<7) 

C  BET  COUNTERS  FOR  THE  NUMBER  OF  FLAMING.  SMLDRO.  AND  CHARRED  ELMNT8 
C  TO  ZERO.  INDEXES  ARE  MATERIAL  NUMBER 
DO  10  M-l.  NMATLS 
NFLM(M)«0 


NCM(M>-0 
10  NPYR<M>-0 

C  MARCH  THE  LINING  SURFACES  FOR  ELHNTS  SMLDRQ  (STATE  -2  OR  7).  FLAMING 
C  (STATE  -3).  CM  CHARRED  (STATE  -  4)  AND  COUNT  THE  NUMBER  OF  EACH. 

C  MATERIAL  TYPE  OF  EACH  SURF  IS  DETERMINED  BY  ARRAY  IMATL < SURF  NO). 
ITOTAL  -IMAX<LSN) 

DO  30  1-1. ITOTAL 
IX-IRAY(I) 

JX-IMATL(IX) 

DO  20  J-l,  19 

CALL  CVOUTd.J.  IX.  1ST.  II.  12) 

IF ( 1ST.  NE.  2.  OR.  1ST.  NE.  7)  SO  TO  13 

NPYR<UX)-NPYR(JX)-1 

00  TO  20 

19  IF< 1ST.  NE.  3)  00  TO  17 
NFLM ( JX ) -NFLM < JX > +1 

17  IFdST.  NE.  4)  00  TO  20 
NCM  ( JX  )  -NCM  <  UX )  •*•  1 

20  CONTINUE 
30  CONTINUE 

C  SEARCH  EACH  SEAT  CROUP  FOR  ELHNTS  IN  STATES  2.3.4.  OR  7  AND  ADO  THE 
C  COUNTS  IN  EACH  STATE  TO  THOSE  FOUND  ABOVE.  SEAT  SURFACE  IS  IDENTIFIED 
C  USINO  ARRAY  IRAY8  AND  SURFACE  MATERIAL  BY  ARRAY  I MATS. 

IT-LSN+1 
DO  70  KK-IT.NS 

11- IMIN(KR) 

12- IMAX(KK) 

DO  60  J-l.  22 
JK-IRAYS(J) 

IX»IMATS< JK) 

00  90  1-11.  12 

CALL  CVOUTd.  J.  KK.  1ST,  ISTP.  ITFCP) 

IFdST.  NE.  2.  -OR.  1ST.  NE.  7  >  00  TO  40 
NPYR  <  XX )— NPYR ( I X )  +  1 
00  TO  90 

40  IFdST.  NE.  3)  00  TO  49 
NFLM d X ) -NFLM <1 X ) ♦ 1 
43  IFdST.  NE.  4)  00  TO  30 
NCH<  1X7— NCM ( IX) -l 
90  CONTINUE 
60  CONTINUE 
70  CONTINUE 

C  COMPUTE  AREAS  IN  EACH  STATE  BY  MULTIPLYING  NUMBER  OF  ELHNTS  BY  THE 
C  ELMNT  AREA.  AREAS  ARE  REPORTED  IN  SUBR  OUTPUT 
OO  80  M-l.  NMATLS 
T1-NFLM<M) 

T2— NP  YR  ( M ) 

AFM(M)-Tl*S<lO*80D 
ACM  <  M ) -NCM  <  M  > -SOD-SOD 
80  ASM ( M  > -T2-SQD-SOD 

C  SUM  OVER  ALL  MATL  TYPES  THE  RATES  OF  SMOKE  AND  CAS  EMISSION  FOR 
C  SMOLDERING  ELHNTS.  FIRST  SET  THE  SUMMATION  VARIABLES  TO  ZERO. 

109  TRSS-O. 

DO  110  I0-1.NTX0 

110  TRGB< I0)-0. 

C  THEN  SUM  OVER  THE  NUMBER  OF  MATERIALS. 

DO  120  I M-l. NMATLS 
XXM— NPYRdM) 

TRSB-TRSS+OTR-XXM-RSS ( IM) 

DO  119  I0-1.NTX0 

119  TROS< IO)-TROS( I0)-GTR*XXM*R08< 10,  IM> 
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ISO  CONTINUE 

C  ADO  THE  TOTAL  SMOKE  AND  CAS  SMLDRQ  EMISSION  RATES  TO  THE  RATES  FOR 
C  FLAM I NO  EMISSION  FOUND  IN  SUBR  TEST. 

TOTSEM-TRSF+TRBS 
DO  139  IO-1, NTXQ 

139  TOTQAS< IG>— TRQF< IG)+THGS< 18) 

C 

XX  ■  0. 

DO  137  IM-l.NHATLS 

137  XX  -  XX  4-  TDQMTL(IM)  J  <  WMHTL<IM>  *  QTAB(IM)  > 

XX  •  XX  ♦  <  I BURN  «  DO I  •  AFI  )  /  (  WMIGF  •  QCI  ) 

C 

c 

c 

OENRAT ( 1 )  -  0. 

GENR AT ( 3 )  •  -TOTWIT 
GENRATC3)  »  0. 

OENRAT ( 4 )  «  44.  *  XX 
OENRAT ( 9 )  •  18.  *  XX 
C 

00  130  10-t.NTXG 
OENRAT <9+ IQ)  -  TOTOASCIO) 

130  CONTINUE 
C 


RETURN 


oonoooonon 


c 


SUBROUTINE  RESET 


COMMON/CNTRL/DELTAT,  DELTSP,  ECOFLG.  IDELT,  IDENT(20>,  IDTPRV. IPEMS. 

1  IPSPR. IPAUX, IRATIQ,  ISAVE,  ISCALE, ITFIN. ITIME.  ITIM2. 

2  ITSPRD. NP ASS* TFINAL, IDBUC1. EPSLN. MAXITR, MAXCUT, 

3  JCBSKP 

C0MM0N/FIRES/AFM<7).  ASM<7). ISTATE<120. 19). ISTATS<9. 16. 22). 

1  I WORD! 120.  19). I WORDS  <  9,  16. 22). NFLM<7>. NPYR<7>, 

2  RCS (10.  7), RSS<7).  TOTGAS(IO). TOTSEM.  TRQF< 10). 

3  TROS(IO).  TRSF, TRSS.  NCEI30). VITNR. TOTVIT. RADFIR ( 30) . 

4  ACM < 7 ) , AF ( 30  > . AF I . AEXP. COMB < 30 ) . DOK.  FLML< 30 ) .  FSN1, 

9  FSN2.  FSN3. GAMMA ( 30 ) . I BURN,  IF<600),  I OMNI,  IGMNJ,  IQMXI, 

6  IGMXJ. IGNFIR, ICNIJ<2, 100). IOSN. ISFIRE<30)> IVMAX<30>. 

7  IVMIN130).  IVMN.  IVMX.  ZXFIRE. I ZONE ( 30 > . JVMAX < 30 ) , 

8  JVM  IN  (30).  JVMN.  JVMX.  K.  NFE<30).  NFIRES,  NIJC,  NIJSO. 

9  NPE  <  30  > . NSFL ( 7 ) , OMEGA ( 30 ) . PDH. P 1 8N, RF(20, 4). RFS<7, 4). 

1  RFWS.  RCF( 10.  7).  RGFK <10 ) .  RHOZ (30 ) ,  RSF<7> .  RSFK.  TDQ. 

2  TBURNI,  UZ ( 30) . YZ (30) > ZB (30) . RHOEFQ. CHIEFG  < 11). 

3  FLOWIN. FLWOUT. TEFG. IFRVNT, GENR AT (11), TDGMTL ( 7 ) , 

4  TP<7) , TPC (7) 

COMMON/GASES/CHILdl.  9),  CHIU(11.  9).  CP.  NGAS (11).  NSPCS.  PAMB.  PF(9>. 

1  RHOAM.  RHOL (  9 ) ,  RHOU (  9 ) ,  TAM.  TL<9).  TU<9>.  VOLL(S). 

2  VOLU ( 9 > .  ZD(9).  XTHEN(  120) ,  WMOLEC  <11  > .  TWOdOl ) . 

3  JCOR ( 120) 

COMMON/GMTR  Y  / 1 MATL  ( 20 )  ■  IMATS(7),  IMTLP(4),  IMAXOO).  IMIN<30). 

1  I RAY (116).  IRAY8122) .  JMAX (30). JMIN(30) .  LSN. MAXELI, NS. 

2  CH.  CL (4),  CW.  DUS.  HSTS,  IARXI40.  19),  IARY(40,  12),  ICLL, 

3  ICLR.  ZEND. IF1RL, IFJRR,  ILSTL.  ILSTR. I0NE(9). 

4  ISSULI  <9.  10).  ISSWLJ ( 9.  10).  ISSURK9,  10).  ISSWRJ(9.  10). 

9  ISUSL(  19.  8).  ISWSR  ( 19.  8) .  ISTART,  NPROJ.  IPJUL,  IPJLL, 

6  IPJUR.  IPJLR,  JEND.  JONE ( 9 ) .  JST ART , NJS. NSO.  NV. SGUD(9>, 

7  SL,  SWD  <  20 ) ,  VN  <  20,  3 ) , VENTH ( 24 ) . VENTW ( 24 ) .  VENTT ( 24 ) , 

8  XMN( 30) . XMX ( 30) . XCOR (9  > , YCOR (9) , 1(30) . S80WD. TVSQ. 

9  MT 1 .  HT2,  HT3.  HT4  (10).  NSSTS.  SLSW.  SX  ( 30  > .  SZ  ( 30  > . 

1  CNCTNS < 24 ) , NCOMPS.  IFRCMP, FLOW < 24 ) .  INT0(24 ) .  VT0TAL<4 ) . 

2  FHHIN 

COMMON/MATLS/TABX  (18.  7,  6) .  TABY ( 18.  7.  6) .  NTXG.  F0X1,  RADTAB < 7) ,  RADI. 

1  F0Xf7). NMATLS. DQI. DQM<7). CAM I. QTAB(7>. ITF<20). IRAMPT. 

2  ITFC (20). ITFCS<7). ITFS(7). ITP<20>. ITPC(20), ITPCS(7>. 

3  ITP£<20)>  ITPE8<7).  ITFS(7).  QCI,  QP<7),  QTAB(7).  RHOI, 

4  RH0M(7),  R8I,  RTA8 (7) , RTQI (10). UTAB<7),  CNDCTY(7) ,  XMUI. 

9  XMFI ,  TKN8 ( 7 ) .  T8L ( 30,  2.  4>.  TSP<2.  2,  4 ) ,  CPM ( 7 ) .  WHHTL ( 7 ) . 

6  WMIGF.  TKNSIN<7) 

COMMON/PARAMS/GRAV. PI, QTR. RGAS. SIGMA,  SOD. THOU. TOL,  EC.  EP 
COMMON/RAOTN/ALPC.  ABSCF <  30 ) .  EB.  QC  <  2 ) 


OBJECTIVE! S) 

(1)  EXAMINES  THE  CURRENT  STATE  OF  ALL  ELEMENTS,  1ST,  AND  THE  PREVIOUS 
STATE.  ISTP,  (PREVIOUS  STATE  IS  THE  STATE  JUST  BEFORE  THE  START 
OF  THE  LAST  FLAME  SPREAD  CALCULATIONS.  >  IF  THE  TWO  STATES  ARE  NOT 
THE  SAME  RESET  CHANGES  ISTP  TO  1ST  IN  PREPARATION  FOR  THE  NEXT 
PASS  THRU  THE  FLAME  SPREAD  CALCS. 


PART  ONE  -  EXAMINE  ALL  ELEMENTS  ON  CABIN  LINING  SURFACES 
LOOP  OVER  ALL  VALUES  OF  THE  I  INDEX 
1-0 
10  I-I  +  l 

C  LOOP  OVER  ALL  VALUES  OF  THE  J  INDEX 
J*0 

20  J»J+1 

CALL  CVOUT< I. J.  1.  1ST, ISTP, 1TFCP) 
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C  IF  ISTP  IS  NOT  -  1ST,  SET  ISTP  -  1ST  AND  REPACK  ISTATE 
IF<  1ST.  EQ.  ISTP)  SO  TO  30 
ISTP-IST 

ISTATE (  I,  U)-ITFCP*100*ISTP*10*IST 
30  IF(  J.  LT.  JHAXU  )  )  SO  TO  20 

!F<  I.  LT.  HAXELI  >  SO  TO  10 

C  PART  TWO  -  EXAMINE  ALL  ELEMENTS  ON  SEAT  SURFACES 
C  IS  -  THE  SEAT  OROUP  NUMBER  <1,2,3,...  >  AND  I-IS+LSN 
C  LOOP  OVER  THE  SEAT  II  INDEX 

I- LSN 

40  1-1*1 

I 8- I-LSN 

C  LOOP  OVER  THE  SEAT  JJ  INDEX 

Jvl-0 

30  JU-UJ+i 

II- O 

60  11-11*1 

CALL  CVOUTUI.  JJ.  I.  1ST,  ISTP.  1TFCP) 

C  IF  ISTP  IS  NOT  -  1ST,  SET  ISTP  -  1ST  AND  REPACK  ISTATS 
IF<I8TP.E0.  1ST)  00  TO  70 
ISTP-IST 

ISTATSI IS.  II. dU)-ITFCP*l00*ISTP*10*IST 
70  IF<  1 1.  LT.  IMAX  <  I  > )  00  TO  60 
IF<  JJ.  LT.  JMAX  <  I )  )  00  TO  30 
IFU.  LT.  NS)  00  TO  40 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  ISIDEI IFF,  ISO) 


OBJECTIVE ( S ) 

<n  UNPACKS  DATA  FROM  ARRAY  /IF'  TO  DETERMINE  WHICH  ELEMENTS. 
ADJOINING  A  GIVEN  FLAMING  ELEMENT  ARE  ALSO  FLAMING.  F.  P. 
IS  THE  VALUE  OF  IF.  ARRAY  ISD(L)  IS  RETURNED  WITH 

ISD (L )  *0  IF  SIDE  L  ADJOINS  ANOTHER  FLAMING  ELEMENT 
ISD(L)  -1  IF  SIDE  L  DOES  NOT  ■>  IS  ON  EDGE  OF  A  FIRE 
NUMBERING  OF  SIDES  IS  AS  SHOWN 


L«2 

XXXXXXX  — >  I  INCREASING 

*  X  X 

L»3X  XL*4 

XX  !  J  INCREASING 

XXXXXXX 
L-l 


DIMENSION  I SD ( 4 ) 


ITl-IFF-<IFF/IO)*IO 

IT-IFF-ITl 

IT2»IT-<IT/100>*100 

IT-IFF-IT2-IT1 

I T3- IT- ( I T/ 1 OOO ) * I OOO 

ISD ( 4 ) “IFF/ 1000 

I SD  < 1 ) *0 

IFUTl.GT,  1)  ISD(1)-1 

ISD<2)-ITa/10 

ISDC3J-IT3/100 

RETURN 

END 


IF  ANY. 
'IFF' 
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1 

2 

3 

4 
9 
* 
7 

a 

4 

1 

2 

3 

4 

1 

2 

3 


1 
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SUBROUTINE  CVOUTUI,  JJ.  I.  1ST,  ISTP.  ITFCP) 

C0MM0N/FIR£S/AFM(7>,  ASM<7>,  ISTATEU20.  19),  ISTATS(9,  14,22), 

I WORD < 120,  19),  I WORDS ( 9,  14, 22) , NFLM(7) , NPYR (7) , 

ROS  < 10. 7 ) , RSS ( 7 ) , TOTGAS ( 10 ) ,  TOTSEM,  TRQF  < 1 0 ) . 

TRGS  ( 10 ) .  TRSF,  TRSS,  NCEC30),  VITNR.  TOTVIT,  RAOFIROO). 
ACM ( 7 ) ,  AF  ( 30 ) ,  AF I ,  ACXP.  COMB (30) . DQK.  FLML ( 30 ) .  F8N1, 
F8N2,  FSN3, BAMMA ( 30 ) ,  IBURN.  IFC400),  ISMNI.  I QMNJ,  IOMXI. 
IOHXJ,  IGNFIR,  IONI J<2,  100),  ISSN,  ISF1RE(30>.  IVMAX ( 30) . 
IVMIN(30) ,  IVMN.  IVMX.  IXFIRE,  I  ZONE ( 30 ) ,  JVMAX ( 30 ) , 

JVM IN (30) , JVMN,  JVMX. K. NFE( 30) ,  NFIRCS,  NIJC.  NIJSQ. 

NFE ( 30 ) ,  NSFL ( 7 ) , OMEGA ( 30 ),  PDH.  PIGN,  RF(20.  4). RFS(7,  4) 
RFWS. RQF( 10, 7), RGFK( 10). RH0Z(30>, RSF(7), R8FK, TDQ, 
TBURNI,  UZ(30) ,  YZ (30) >  ZB <30 ) ,  RHOEFO.  CHIEFGdl  >, 
FLOWIN.  FLWOUT ,  TEFG,  IFRVNT. GENRAT (11), TDGHTL ( 7 ) , 

TP (7) ,  TFC (7) 

COMMON/ONTRY/ IMATL (20 ) ,  1MATS(7),  IMTLP(4),  I  MAX  (30)*.  IMIN(30), 

IRAYf 114), I RAYS <  22) , UMAX (30) , JMIN(30> , LSN. MAXELI. NS. 
CH.  CL ( 4 ) ,  CW,  OWE.  HSTS.  IARX<4 O.  19).  IARY<40,  12).  ICLL. 
ICLR,  I END.  IFIRL. IFIRR,  ILSTL,  1LSTR.  I0NE(9>. 

ISSWLK9,  10),  IS8ULJ(9,  10).  IS8WRX  (9,  10).  ISSWRJ(9.  10). 
XSWBLdS,  8).  I SWSR  (19.8).  I  START,  NPROJ.  IPJUL,  IPJLL, 
IPJUR,  IPJLR.  JEND.  JONE ( 9 > ,  J3TART .  NJS.  NSG.  NV,  S0UD(9>. 
SL,  SWD(20),  VN(20,  3) ,  VENTH(24) .  VENTU<24 ) .  VENTT<24) . 
XMN(30) , XMX ( 30 > , XCOR (9) , YCOR (9) .  Z(30>.  SSGUD.  TVSO, 

HT 1 .  HT2,  HT3.  HT4 ( 10  > , NS8TS.  SLSW,  SX ( 30 ) .  SZ ( 30  > . 

CNCTN8 ( 24 ) ,  NCOMFS, IFRCMP, FLOW (24),  INTO (24),  VT0TAL(4) 
FHHIN 


C - 

C  OBJECT! VE(S> 

C  (X)  TO  UNPACK  ISTATE  AND  I STATS.  F.  P  'I'  IS  THE  SURFACE  NUMBER. 
C  'II. JJ'  ARE  THE  ELEMENT  INDICES 

C  COMMENTS 

C  (1)  WHEN  DEALING  WITH  SEAT  ELMNTS  'IS'  IS  THE  SEAT  GROUP  NUMBER 


IFd.OT.  LSN)  00  TO  10 
ITEMP«ISTATE(II,  JJ) 

OO  TO  20 
10  IS-I-LSN 

ITEMP-ISTATSUS.  II.  JJ) 

20  I8T-ITEMP-(ITEMP/10)*10 
IT-ITEMP-IST 

I8TP»( IT-( IT/ 100) *100) /10 

ITFCP* ITEMP/ 100 

RETURN 

END 
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SUBROUTINE  CHORD! IX,  ITX.  ITY ) 


C  OBJECTIVE! S) 

C  II)  UNPACKS  DATA  IN  1UORD  AND  1WOROS.  RETURNINO  VALUES  OF  ITX  AND  ITY 
C 

c - 

c 

IF!  IX.  LT.  0)  00  TO  10 
C 

I  SOal 
ITEHP-IX 
00  TO  SO 

c 

10  ISOa-1 

ITEHP—IX 
C 

20  ITXalTEMP-l ITSMP/10000 >*10000 
ITYa< IX- I SO* ITX ) / 10000 
C 

RETURN 
END 
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SUBROUTINE  LINTtNO.  X,  M.  V) 

COMMON/MATLS/TABX< 13,  7.  6).  TABYdS,  7.  6).  NT XG.  FOXI,  RADTAB ( 7 ) .  RADI. 

1  FOX<7>, NMATLS. DQI . DOM ( 7) , GAMI . GTAB<7>, ITF(20>, IRAMPT, 

2  ITFC  <20 ) .  ITFCS<7).  ITFS<7).  ITPC20).  ITPC<20>,  ITPCS<7). 

3  ITPE<20>.  ITPES<7).  I TPS ( 7 ) .  OC I .  GP< 7) , QTAB< 7) .  RHOX, 

4  RHOM <  7 ) .  RSI.  RTAB  (7) ,  RTGI  dO) , UTAB  <7 ) . CNDCTY (7) . XMUI. 

5  XMFI,  TUNS < 7 ) , TSL < 30. 2, 4), TSP<2.  2. 4) . CPHC7) . UMMTL<7) . 

6  WMIGF. TKNSIN<7) 

C  OBJECTIVE <S ) 

C  <l)  PROVIDE  LINEAR  INTERPOLATION  IN  TABLE  OF  MATERIALS  DATA  FOR 
C  VALUES  OF  RADIATION  LEVEL  SUPPLIED  AS  F.  P  'X'.  F,  P.  'NO' 

C  IS  THE  DATA  ITEM  TYPE,  'M'  IS  THE  MATL  NUMBER.  AND  'Y'  IS 

C  THE  INTERPOLATED  DATA  VALUE  RETURNED. 

C  COMMENTS 

C  <1>  IF  RADIATION  VALUE  IS  LESS  THAN  THE  FIRST  VALUE  OF  THE 
C  PROPERTY  IN  THE  TABLE.  THIS  FIRST  VALUE  IS  RETURNED.  IF  THE 
C  RADIATION  IS  GREATER  THAN  THE  LAST  VALUE.  LINEAR  EXTRAPOLATION  IS 

C  USED  TO  FIND  THE  RETURNED  PROPERTY  VALUE. 

C  (2)  THIS  SUBR.  ASSUMES  SIX  ENTRIES  IN  EACH  TABLE. 

MAX  *6 

L-0 

I»l 

IF <  X.  GE.  TABX  (NO,  M,  I )  )  GO  TO  20 

C  RADIATION  LEVEL  IS  LESS  THAN  THE  LOWEST  ENTRY  IN  THE  RAD  TABLE 
10  Y»TABY(NO.  M.  I) 

GO  TO  70 
C 

20  IF  ( X— TABX  < NO,  M.  I )  )  SO.  10.  30 
30  IFCI.GE.  MAX)  GO  TO  40 
I»I  +  1 
GO  TO  20 
C 

40  L«1 

C 

SO  S*(TABY  (NO,  M.  I ) -TAB  Y  <  NO,  M,  1-1 ) )  /  <  TABX  <  NO,  M,  I  >-TABX  (NO.  M,  I-t>> 

IF < L.  OT  0)  CO  TO  ”60 

Y»S*<X-TABX(NO. M.  1-1 ) )+TABY<NO.  M.  1-1 ) 

00  TO  70 

C  RADIATION  LEVEL  IS  HIGHER  THAN  THE  HIGHEST  ENTRY  IN  THE  RAD  TABLE 
60  Y-S*(X-TABX<NO.  M,  I ) )  +T ABY <  NO,  M,  I ) 

C 

70  RETURN 
END 
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SUBROUTINE  ERROR (NO) 


OBJECT I VE(S> 

<1)  PROVIDE  ERROR  CHECKING  MESSAGES  FOR  CABIN  GEOMETRY  INPUT  DATA 
COMMENTS 

(1)  VALUE  OF  F.P.  'NO'  SUPPLIED  BY  SUBR  RDGMTY  IDENTIFIES  ERROR  TYPE 


WRITEIA, 3) 


3  FORMAT( 1H1/3X, 37H**PR0SRAM  TERMINATION - INPUT  ERROR**) 

GO  TO  (  1 0,  20,  30.  40.  30  >.  NO 
C 

10  URITECA.  13) 

13  FORMAT  OX, 21HM0RE  THAN  20  SURFACES) 

GO  TO  100 
C 

20  WRITE (6,  23) 

23  FORMAT ( 3X, 23HM0RE  THAN  9  SEAT  GROUPS) 

GO  TO  100 
C 

30  .WRITE (A,  33) 

33  FORMAT ( 3X. 26HCEILING  SURFACES — SEQUENCE) 

GO  TO  100 
C 

40  WRITE<  A.  43) 

43  FORMATOX,  17HN0  OF  ELEM  GT  120) 

C 

30  WRITE (A, 33) 

33  FORMATOX,  2AHN0  OF  ELEM  ON  FLOOR  GT  600) 

C 

100  RETURN 
END 
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APPENDIX  B 

EXPRESSIONS  FOR  SEVERAL  QUANTITIES 
USED  IN  THE  MODELING  OF  INTERIOR  FIRES 


Equation  (4-13)  of  Volume  I  gives  the  rate  of  entrainment  of  lower  zone 
gases  Into  the  plume  region  of  an  Interior  fire.  The  expression  contains  the 
quantities  ys,  u«,  and  ps  which  are,  respectively,  the  fire  column  radius, 
qas  velocity,  ana  gas  density  at  the  top  of  the  combustion  zone.  These  quan¬ 
tities  can.  In  turn,  be  written  in  terms  of  the  characteristics  of  the  fuel 
vapor  at  the  fire  base:  aHc,  the  effective  heat  of  combustion  of  the  fuel 
vapor;  y,  the  stoichiometric  oxygen-to-fuel  mass  ratio;  p0  the  fuel  vapor 
density;  and  u0  the  fuel  vapor  "blowing"  velocity  at  the  fire  base  plane.  In 
addition  the  expressions  for  ys,  etc.  Involve  the  quantity  u  which  Is  computed 
using  the  lower  zone  temperature,  T[,  and  oxygen  mass  fraction  x\0p»  and  the 
radius  of  the  fire  base,  y0.  i 

Hlth  the  above  definitions  of  symbols,  the  expressions  for  w,  ys,  us, 
and  ps  are:  s 

-  “  Vl/(Vl  +  *lt>2  *c>  (B-l) 

ys  3  l-19yoEc1/5[u3(l-0>)]‘1/1°  (B-2) 


•  [d  +  Y/x1^)5  /  («Pt/p0  +  T/x^)]1710 


*  [p0uo  1  (pA  av0)]2/5 

uo^o/ys)2  t1  +  (t/x1o2)  /  («Pt/P0)j 

(B-3) 

pt“(1  +  y/xi|02)  1  ^pA/po  +  y/4o2) 

(B-4) 

B-l 
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